動的配列を引数で使用するには？

ＶＢ特訓中 2008-07-17 07:29:14 No: 100904

２次元の動的配列と１次元の動的配列を引数とし、その引数を使用して結果を返すサブモジュールを作成したいのですが、どのようにしたらよいか分かりません。
サブモジュールを使用するモジュール側の引数の渡し方及び引数を受ける側のサブモジュールの記述方法を教えて下さい。
宜しくお願いします。

ガッ 2008-07-17 12:05:11 No: 100905

たとえば，

'VB6
Option Explicit

Private Sub Form_Load()
    Dim dim2(1, 1) As Variant
    Dim dim1(1) As Variant
    Dim p() As Variant
    Debug.Print hoge(dim2, dim1)(0)
End Sub

Public Function hoge(ByRef dim2(), ByRef dim1())
    Dim ret(1) As Variant
    ret(0) = dim2(0, 0) + dim2(1, 1) + dim1(1)
    hoge = ret
End Function