作成者	カテゴリ		公開
ゆら 04/12/2004 12:29 PM	エージェント

お世話になります。
現在、エージェント間で配列のやりとりをしたいと思って、以下のようなコーディングをしましたが、「未初期化の動的配列にアクセスしました」というエラーメッセージが出てしまいます。
いったい何が悪いのでしょうか？

呼び出し側
dim strValue as string
dim strValAry() as variant
Call Split_Data(strValue, strValAry())

Public Function Split_Data( strValue As string ,valArry() As Variant) As Variant
dim intX as integer
redim valArry(0) as variant
for intX = 0 to 5
redim preserve valArry(intx) as variant
valArry(intx) ="A"
next
end funcion