VBA 配列を戻り値として渡す

（例）String型の配列を戻り値とした場合
■呼び出し元プロシージャ

Sub Testarray()    
    '戻り値を格納する変数を動的配列で宣言
    Dim Testarray() As String    
    '戻り値（配列）を変数に格納
    Testarray = fncMakeArray    
    MsgBox Testarray(0)
    MsgBox Testarray(1)
    MsgBox Testarray(2)
End Sub

■Functionプロシージャ

Function fncMakeArray() As String()
    '配列を宣言
    Dim arr(2) As String
    '配列の要素に値を格納
    arr(0) = "山田"
    arr(1) = "45歳"
    arr(2) = "東京都"
    '戻り値に配列を格納
    fncMakeArray = arr()    
End Function