'***************************************************************
' Purpose: get Array Dimension.
' Inputs: strArrayName as array.
' Returns: int, from 0-60.
'***************************************************************
Function getArrayDimension(strArrayName)
On Error Resume Next
Dim intIndex,intJ,intI
intJ=0
If Not IsArray(strArrayName) Then
Exit Function
Else
For intI = 1 To 60
intIndex = UBound(strArrayName,intI)
If Err Then
Err.Clear
Exit For
End If
intJ=intJ+1
Next
End If
getArrayDimension=intJ
End Function