Private Type Point
 
    x as long
    y as long
 
end Type
 
Dim ArrayVariable()as Point, tmp$, i&
 
For i=lbound(ArrayVariable())  to ubound(ArrayVariable())
 
  tmp = tmp & ArrayVariable(i).x  & "$" &  ArrayVariable(i).y & ";"
 
next i
 
Erase ArrayVariable
 
Dim tmpArray()as string,zwArray()as string
 
tmpArray = split(tmp,";")
 
redim arrayVariable(ubound(tmpArray()))as point
 
for i=lbound(tmpArray()) to ubound(tmpArray())
 
zwarray=split(tmparray(i),"$")
 
arrayvariable(i).x = val(zwarray(0))
arrayvariable(i).y = val(zwarray(1))
 
next i