Option Explicit
Public A As String
Public label1 As String
Public label2 As String

Private Sub Form_Load()
 
  A = App.Path & "\speicher.txt"
 
    'Text der in der date speichern.txt steht auslesen
    Open A For Input As #1
    Do Until EOF(1)
      Line Input #1, label1
      Line Input #1, label2
      label1.Caption = label1.Caption & label1
      label2.Caption = llabel2.Caption & label2
    Loop
  Close #1
End Sub

Private Sub beenden_Click()
Open A For Output As #1
    Print #1, label1.Caption
    Print #1, label2.Caption
  Close #1
  End
End Sub