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