Código:
On Local Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
CommonDialog1.ShowSave
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1
'Escribimos en el archivo el contenido de Text1
Print #1, Text1
'Cerramos el archivo
Close
mi problema es que no veo la forma de que el programa reescriba el archivo que se abrio o guardo previamente :S