Dim F As Integer
Dim xDim As Long
Dim yDim As Long
Dim x As Long
Dim y As Long
 
If Dir$("Datei") <> "" Then Kill "Datei"
Open "Datei" For Binary As #F
 
xDim = UBound(tArray, 1): yDim = UBound(tArray, 2)
Put #F, , xDim
Put #F, , yDim
 
For x = 0 To xDim
  For y = 0 To yDim
    Put #F, , tArray(x, y).x
    Put #F, , tArray(x,y).y
  Next y
Next x
Close #F

Dim F As Integer
Dim xDim As Long
Dim yDim As Long
Dim x As Long
Dim y As Long
 
Open "Datei" For Binary As #F
Get #F, , xDim
Get #F, , yDim
 
ReDim tArray(xDim, yDim)
 
For x = 0 To xDim
  For y = 0 To yDim
    Get #F, , tArray(x, y).x
    Get #F, , tArray(x,y).y
  Next y
Next x
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de