[RESOLVED] Best way to determine # of array dimensions?

[Ellis Dee]

Just curious if there is a way to programmatically determine how many dimensions a dynamic array has. eg:

Sub Test()
    Dim varArray As Variant
    Dim lngArray() As Long
    
    Debug.Print ArrayDimensions(varArray) & "," & ArrayDimensions(lngArray)
    ReDim varArray(9)
    ReDim lngArray(9)
    Debug.Print ArrayDimensions(varArray) & "," & ArrayDimensions(lngArray)
    ReDim varArray(9,9)
    ReDim lngArray(9,9)
    Debug.Print ArrayDimensions(varArray) & "," & ArrayDimensions(lngArray)
    Erase varArray, lngArray
    Debug.Print ArrayDimensions(varArray) & "," & ArrayDimensions(lngArray)
End Sub
 
Function ArrayDimensions(pvarArray As Variant) As Long
    ' ???
End Function

Which would ideally look like this in the debug window:

Test
0,0
1,1
2,2
0,0

Any ideas?