[VB6] Array vuoto, come saperlo?

[oregon]

O anche

Public Function IsArrayEmpty(ByRef a As Variant) As Boolean
    On Error Resume Next
    IsArrayEmpty = (a(0) = a(0))
    IsArrayEmpty = (Err.Number = 9)
End Function

che restituisce True se l'array e' vuoto (senza elementi)