a problem with Structures that contains an array field

See more:

VB

hello

I have a Public Structure that contains some arrays that their Data Types are other public structures:

Public Structure ResponseInfo
    Public Status As string
    Public Result() As Result
End Structure

Public Structure Result
    Public Type() As String
    Public FormattedAddress() As String
    Public AddCom() As AddressComponent
    Public Geometry As Geometry
End Structure

Public Structure AddressComponent
    Public Long_name As String
    Public short_name As String
    Public type() As String
End Structure

The number of Indexes of the arrays are different in any request.

  Dim Lo_ResponseInfo as ResponseInfo
    Do While Name <> ""
      ReDim Lo_ResponseInfo.Result(Lnum_ResultCounter).AddCom(Lnum_AddComCounter).type(Lnum_AddComTypeCounter)
                                            Lo_ResponseInfo.Result(Lnum_ResultCounter).AddCom(Lnum_AddComCounter).type(Lnum_AddComTypeCounter) =Lnum_AddComTypeCounter 
                                            
Lnum_AddComTypeCounter += 1
Loop

because of ReDim all my Previous data will be lost.
What should I do??