Dim Texto As String
Dim Fichero As String
Dim num As Variant
Texto = VSerFis
CommonDialog1.CancelError = False
CommonDialog1.DialogTitle = "guardar archivo como"
CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"
CommonDialog1.InitDir = Texto
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
Fichero = CommonDialog1.FileName
num = FreeFile
If Trim(Fichero) <> "" Then
Open Fichero For Output As #num
Print #num, Texto
Close #num
MsgBox "Fichero guardado"
End If
End Sub