type MyData
  redim Arr(0) as integer
end type

redim as MyData MyArray(30)

sub AddItem( Arr() as integer  )
  redim Arr(50)
end sub

AddItem( MyArray(0).Arr() )

print ubound(MyArray(0).Arr)
sleep