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"

questa parte di codice che mi hai dato l'ho messa prima di tutte nel codicee poi ho inserio le altre cose per non fare confusione.comunque non mi funziona.mi dice che la provedura è invalida!!!!