Private Sub cmdSave_Click()
  Dim F As Integer
  Dim sFile As String
 
  sFile = App.Path & "Daten.txt"
  F = FreeFile
  Open sFile For Output As #F
  Print #F, sVariable
  Close #F
End Sub

Private Sub Form_Load()
  Dim F As Integer
  Dim sFile As String
 
  sFile = App.Path & "Daten.txt"
  If Dir$(sFile) <> "" Then
    F = FreeFile
    Open sFile For Input As #F
    Line Input #F, sVariable
    Close #F
  End If
End Sub