Private Sub cmdSave_Click()
Dim strPfad As String
Dim strName As String
Dim intZahl As Integer
 
txtName.SetFocus
strName = txtName
 
strPfad = CurDir & "\Daten\" & txtMglnr.Text & ".txt"
 
    Open strPfad For Output As #1
        Print #1, TextGesamt.Text & vbCrLf & Date & "   " & strName & "    " & _
          "--------------"
    Close #1
End Sub