' Speichern
Dim F As Integer
F = FreeFile
Open "Datei.txt" For Output As #F
Print #F, Text1.Text
Print #F, Text2.Text
Print #F, Text3.Text
Print #F, Text4.Text
Close #F

' Einlesen
Dim F As Integer
Dim sLine As String
F = FreeFIle
Open "Datei.txt" For Input As #F
Line Input #F, sLine: Text1.Text = sLine
Line Input #F, sLine: Text2.Text = sLine
Line Input #F, sLine: Text3.Text = sLine
Line Input #F, sLine: Text4.Text = sLine
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de