Private Sub Command1_Click()
Dim TaskID As Long
TaskID = Shell("notepad d:\temp\2\ja.txt", vbNormalFocus)
[color=green]'Datei - ja.txt als beispiel genommen
Form3.Show
Unload Me
End Sub
 
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Dim str_DateiPfad As String
    Dim str_Text As String
    '---
    [color=green]'Hier wird die Dateiendung eingestellt. (Kann auch weggelassen 
    ' werden)
    CommonDialog1.Filter = "Text-Datei|*.txt"
    '---
    [color=green]'Öffnet das Speicherfenster
    Call CommonDialog1.ShowSave
    '----
    str_DateiPfad = CommonDialog1.FileName
    str_Text = "Irgentein Text"
    '----
    [color=green]'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