<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
    Close #F
    Text1.Text = sText
  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
  Close #F
End Sub