CommonDialog1.CancelError = False
CommonDialog1.DialogTitle = "guardar archivo como" 'titulo del cuadro de dialogo
'filtros para los archivos
CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"
CommonDialog1.InitDir = doctext
CommonDialog1.FileName = ""
CommonDialog1.ShowSave 'muestra el cuadro de dialogo guardar como
fichero1 = CommonDialog1.FileName
num = FreeFile
If Trim(fichero1) <> "" Then
Open fichero1 For Binary Access Write As #num
Put #num, 1, doctext 'guarda los datos en un archivo .txt
Close #num
MsgBox "El archivo ha sido guardado" 'indica que el archivo ha sido guardado
End If