Option Explicit
 
Private Type test
    var1 As Long
    var2 As String
    var3() As String
End Type
 
Private v(1) As test
Private w() As test
 
Private Sub Form_Load()
    ReDim v(0).var3(2)
    ReDim v(1).var3(1)
 
    v(0).var1 = 0
    v(0).var2 = "0abc"
    v(0).var3(0) = "0s0"
    v(0).var3(1) = "0s1"
    v(0).var3(2) = "0s2"
 
    v(1).var1 = 1
    v(1).var2 = "1abc"
    v(1).var3(0) = "1s0"
    v(1).var3(1) = "1s0"
End Sub
 
Private Sub Command1_Click() 'Speichern
    Dim ff As Long
    Dim i As Long
    Dim j As Long
 
    ff = FreeFile
    Open App.Path + "\datei.txt" For Output As #ff
    For j = 0 To UBound(v)
        Print #ff, v(j).var1
        Print #ff, v(j).var2
        For i = 0 To UBound(v(j).var3)
            Print #ff, v(j).var3(i)
        Next i
        Print #ff, Chr(17)
    Next j
    Close ff
End Sub
 
Private Sub Command2_Click() 'Laden
    Dim ff As Long
    Dim i As Long
    Dim j As Long
    Dim s As String
 
    ff = FreeFile
    Open App.Path + "\datei.txt" For Input As #ff
    Do While Not EOF(ff)
        ReDim w(i)
        Input #ff, w(i).var1: Debug.Print w(i).var1
        Input #ff, w(i).var2: Debug.Print w(i).var2
        Input #ff, s
        Do While s <> Chr(17)
            ReDim w(i).var3(j)
            w(i).var3(j) = s: Debug.Print w(i).var3(j)
            Input #ff, s
            j = j + 1
        Loop
        j = 0
        i = i + 1
    Loop
    Close ff
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1