<font color=green>' Laden </font>
Private Sub Form_Load() 
  Dim F As Integer 
  Dim slol As String 
  If Dir$(App.Path & "lalala.txt") <> "" Then 
    F = FreeFile 
    Open App.Path & "lalala.txt" For Input As #F 
    Line Input #F, slol : Text1.Text = slol 
    <font color=red>Line Input #F, slol : Text2.Text = slol</font>
    <font color=red>Line Input #F, slol : Text3.Text = slol</font>   
    Close #F 
  End If 
End Sub

<font color=green>' Speichern: </font>
Private Sub btn_berechnen_Click() 
  Dim F As Integer 
  Open App.Path & "lalala.txt" For Output As #F 
  Print #F, Text1.Text 
  <font color=red>Print #F, Text2.Text </font>
  <font color=red>Print #F, Text3.Text </font>
  Close #F 
End Sub