Sub Test()
    Dim ai%( 3 )
    Call TestArray(ai)
    Call TestArray(Array( "1 - 1 ",  "1 - 2 ",  "1 - 3 ",  "2 - 1 "))
End Sub

Sub TestArray(ByVal a As Variant)
    Dim i&, qty&
' здесь должна быть проверка а - массив?  инициализирован?
    qty = UBound(a)
    For i =  0  To qty
        Debug.Print a(i)
    Next
End Sub

    On Error Resume Next
    qty = UBound(a)
    If Err <>  0  Then Debug.Print  "Error. Array isn't initialized." 
    Err.Clear
    On Error GoTo  0