Judging the dimension of the array in VB

Array Design idea:
In VB, the number of elder sister is 60, so we deal with the problem by error capture, where we use the UBound function
Public Function Arrayrange (Marray as Variant) as Integer
Dim I as Integer
Dim Ret as Integer
Dim ERRF as Boolean

ERRF = False
On Error GoTo Errhandle
' To determine whether an incoming argument is an array
If not IsArray (Marray) Then
Arrayrange =-1
Exit Function
End If
' VB in the largest array of 60
For i = 1 to 60
' Using the UBound function to determine the upper bound of a dimension, if the actual dimension of the large array produces out of range error,
' Now we're catching the wrong error by resume Next.
Ret = UBound (Marray, i)
If ERRF Then Exit for
Next I
' Last return
Arrayrange = Ret

Exit Function
Errhandle:
Ret = i-1
ERRF = True
Resume Next

End Function