Option Explicit
Public A As String
Public Notizen As String
 
 
 
Private Sub cmdabbrechen_Click()
Unload frmnotizenanlegen
End Sub
 
Private Sub cmdspeichern_Click()
A = App.Path & "\Daten\Notizen.dat"
Open A For Output As #1
    Print #1, txtnotiz.Text
  Close #1
Unload frmnotizenanlegen
End Sub
 
Private Sub Form_Load()
A = App.Path & "\Daten\Notizen.dat"
 
    'Text der in der date speichern.txt steht auslesen
    Open A For Input As #1
    Do Until EOF(1)
      Line Input #1, Notizen
txtnotiz.Text = txtnotiz.Text & Notizen
    Loop
  Close #1
End Sub