Private Sub cmdSichern_Click()
 
If Text1.Text = "" Then
    MsgBox "Nichts zu speichern da"
else
    Open App.PATH + "\ToDoList.txt" For Output As #1
      Print #1, Text1
    Close #1
    MsgBox "Eintrag wurde gespeichert.", vbInformation, "Hinweis"
End If
 
End Sub