codice:
Public Function IsArrayInitialized(ByVal arr As Variant) As Boolean
    Dim dummy As Long
    Err.Clear
    If Not IsArray(arr) Then Err.Raise 5
    On Error Resume Next
    dummy = UBound(arr)
    If Err.Number = 0 Then IsArrayInitialized = True
End Function
La funzione in questione restituisce True se l'array che le passi è inizializzato, False in caso contrario.