Private Sub Form_Load()
    Dim str_DateiPfad As String
    Dim str_Text As String
    '---
    'Hier wird die Dateiendung eingestellt. (Kann auch weggelassen werden)
    CommonDialog1.Filter = "Text-Datei|*.txt"
    '---
    'Öffnet das Speicherfenster
    Call CommonDialog1.ShowSave
    '----
    str_DateiPfad = CommonDialog1.FileName
    str_Text = "Irgentein Text"
    '----
    'Textdatei speichern
    Open str_DateiPfad For Output As #1
        Print #1, str_Text
    Close #1
    '----
    Call MsgBox("Datei wurde erstellt!", vbInformation, "Datei erstellt")
End Sub