Common dialog guardar como, boton guardar, mensaje de texto

[Rossanalie]

Hola

Tengo un botón que llama a un common dialog guardar como. El problema es que el mensaje de texto "Debe escribir un nombre de archivo"aparece cuando marco el boton cancelar y quiero que aparezca cuando marco el boton guardar y que aparezca encima de el cuadro de dialogo guardar como.. Este es el código


If CommonDialog1.FileName = "" Then
MsgBox "Debe escribir un nombre de archivo", vbInformation, "Sistema"
'Salimos de la rutina ya que no hay nada que guardar
Exit Sub
Else
'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
End If