codice:
'...
Dim tuoArray() As Integer
'...
If IsArrayInitialized(tuoArray) Then
    'l'array è inizializzato, fa quello che deve fare
Else
    MsgBox "Panico!", vbCritical
End If