Private Sub Command1_Click()
Dim passwort1 as String
Dim passwort2 as String
Dim passwort3 as String
Dim passwort4 as String
 
On Error Resume Next
 
   With CommonDialog1
      .DialogTitle = "Datei speichern"
      .Filter = "Text(*.txt)|*.txt"
      .CancelError = True
      .FileName = ""
      .Flags = &H2
      .ShowSave
            If Err = 0 Then
 
      'Text Datei speichern
Dim F As Integer
F = FreeFile
setting = CommonDialog1.FileName
Open setting For Output As #F
Print #F, passwort1
Print #F, passwort2
Print #F, passwort3
Print #F, Passwort4
 
Close F
      End If
   End With
End Sub