Functionでの戻り値のとり方

質問

こんばんわ。

以下のように、Functionで引数に配列を指定して、戻り値も配列で取得したいのですが、方法としては以下のようにしかできないのでしょうか？

-------------------------
'配列を宣言
dim Ary() as string
dim AryRet() as string '戻り値の配列

Call Get_Ary(Ary(),AryRet())
-------------------------

Function Get_Ary(Ary() as string , AryRet() as string)
'Ary()を参照して、AryRet()を取得する
End Function

という風に書いているのですが、Functionのところを以下のように
書くのは無理でしょうか？
うまく取れないというのはやっぱ無理なのかな・・

-------------------------
'配列を宣言
dim Ary() as string
dim AryRet() as string '戻り値の配列

AryRet() = Get_Ary(Ary())

Function Get_Ary(Ary() as string) As string

'Ary()を参照して、AryRet()を取得する
'それを関数の戻り値とする
Get_Ary = AryRet(index)

End Function

このように書くと、配列の最後のインデックスの値だけ取れてしまう
ようなんですが、、やっぱ配列で返すというのは上記のやり方でないと
無理なのでしょうか？

詳しい方ご教示願います。

回答No.2

y_an · ベストアンサー

ＶＢ６．０以降ならば以下の方法でできると思います。
（．ｎｅｔは使った事がないのでよくわかりませんが・・・）

Function Get_Ary(Ary() as string) As string()

戻り値の型に()をつければ配列で戻すことが可能です。

回答No.1

bin-chan

過去問に同じ内容がありましたよ。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=69579