Option Explicit

Private Sub Command1_Click()
    Dim b() As Long
    Dim i As Long
    
    ReDim b(10)
    For i = 1 To 10
        b(i) = i
    Next
    
    Call aa(b)
End Sub

Private Sub aa(a() As Long)
    Dim i As Long
    
    For i = 1 To UBound(a)
        MsgBox a(i)
    Next
End Sub

或者:

Private Sub Command1_Click()
    Dim b(10) As Long,i&

    For i = 1 To 10
        b(i) = i
    Next
    
    Call aa(b)
End Sub

Private Sub aa(a)
    Dim i As Long
    
    For i = 1 To UBound(a)
        MsgBox a(i)
    Next
End Sub