如何把数组作为参数传送给自定义function/sub？

Question

Sub zz (StrArray() as String)
    ……
End Sub传送：
zz aa

Answer 1

Private Sub Form_Load()
Dim aa(10) As String
aa(0) = "a"
aa(1) = "b"
Call zz(aa)    
End SubSub zz(StrArray() As String)
   Debug.Print StrArray(0)
   Debug.Print StrArray(1)
End Sub

Answer 2

Private Sub Form_Load()
Dim aa(10) As variant
zz( aa )  'aa数组作为参数
End Subsub zz(kk as variant ) '接收传送进来的数组的地址
这里是修改被送进来的数组的值的语句
End sub