下記のように構造体をfunctionに投げて格納した値を戻したいのですが、
[インデックスの数がインデックス付き配列の次元より少ない値です]とエラーが出ます。

VBAでは問題なく通るのですが、どこの書き方が悪いのでしょうか。

Structure TestData
        Dim A As String
        Dim B As String
End Structure

sub test
  dim TestA() as TestData
  if TestB(TestA())=true then
     msgbox"OK"
  end if
end sub

function TestB(ByRef TestA() as TestData) as Boolean
  dim x as integer
  dim i as integer
  
  i=1
  for x=1 to 100
     redim preserve TestB(i)
     TestB(i).A="Test"
     TestB(i).B="Test"
     i=i+1
  next
  TestB=true
end function

> Structure TestData
>         Dim A As String
>         Dim B As String
> End Structure
>
> sub test


    Dim TestA() As TestData = Nothing
>   dim TestA() as TestData


    If TestB(TestA) = True Then
>   if TestB(TestA())=true then
>      msgbox"OK"
>   end if
> end sub
>
> function TestB(ByRef TestA() as TestData) as Boolean
>   dim x as integer
>   dim i as integer
>  
   配列は、0 から始まる事に注意して下さい。
>   i=1
>   for x=1 to 100

                      TestA(i) では、以下の３行とも
>      redim preserve TestB(i)
>      TestB(i).A="Test"
>      TestB(i).B="Test"
>      i=i+1
>   next
>   TestB=true
> end function

返信遅くなり申し訳ないです。
Nothingを割り当てた結果問題出来ました！
花ちゃんさんありがとうございました。