Il Codice della CommonDialog è questo :

codice:
Commondialog1.CancelError = False
CommonDialog1.Flags = &H2
CommonDialog1.Filter = "File di Testo|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowSave
Il Codice per salvare è questo :

codice:
 Dim NRFILE2 As Integer
    On Error GoTo ERRORE
    NRFILE2 = FreeFile
    Open CommonDialog1.FileName For Output As NRFILE2
    Print #NRFILE2, Text1.Text
    Close NRFILE2
    MsgBox "Salvataggio effettuato!", vbInformation + vbOKOnly, "Salva"
    Exit Sub
ERRORE:
    MsgBox "Si è verificato un errore nel salvataggio.", vbCritical + vbOKOnly, "Salva"
Spero ti vada bene