Tells if a dynamic array has been dimensioned or not.
Lu
Original Author: Newsgroup Posting
Code
Function Member(ary$(), text$)
On Local Error GoTo MemberExit
For i = 1 To UBound(ary$)
If text$ = ary$(i) Then
subscript = i
Exit For
End If
Next
MemberExit:
Member = subscript
End Function
;========================================
another possibility;
Function ArrayElements(ary$())
elements = 0
On Local Error GoTo MemberExit
elements = UBound(ary$)
MemberExit:
ArrayElements = elements
End Function