<font color=green>' Beim Laden der Form den Inhalt lesen</font>
Private Sub Form_Load() 
  Dim F As Integer 
  Dim sText As String 
 
  If Dir$(App.Path & "Daten.dat") <> "" Then 
    F = FreeFile 
    Open App.Path & "Daten.dat" For Input As #F 
    Line Input #F, sText: Text1.Text = sText
 
    <font color=green>' Für weitere Textboxen</font1>
    Line Input #F, sText: Text2.Text = sText
    Line Input #F, sText: Text3.Text = sText
    Line Input #F, sText: Text4.Text = sText
    <font color=green>' usw.</font>
    Close #F 
  End If 
End Sub

Private Sub Form_Unload(UnloadMode As Integer) 
  Dim F As Integer 
  Open App.Path & "Daten.dat" For Output As #F 
  Print #F, Text1.Text 
  <font color=green>' Für weitere Textboxen</font>
  Print #F, Text2.Text 
  Print #F, Text3.Text 
  Print #F, Text4.Text 
  Close #F 
End Sub