ElseIf (UBound(vArr) = -1) Then

dim a(-222 to -1) 

Private Function ArrayInit(vArr) As Boolean
   On Error Resume Next
        If Not IsArray(vArr) Then
            GoTo Handler
        ElseIf IsError(UBound(vArr)) Then
            GoTo Handler
        ElseIf (UBound(vArr) - LBound(vArr) + 1 < 0) Then
            GoTo Handler
        End If
        ArrayInit = True
Handler:
    On Error GoTo 0
End Function