problema con Commondialog

[CH4ØZ]

estoy intentando hacer un editor de texto
el problema surge cuando quiero guardar el text como un archivo
ya que si no especifico la extensión cuando ingreso el nombre no me lo guarda

el codigo q tiene es este

Código [Seleccionar] Expandir

On Local Error Resume Nex
    CommonDialog1.CancelError = True
    CommonDialog1.DefaultExt = "*.txt"
    CommonDialog1.Filter = "Documentos de texto (*.txt)"
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1
    Close

saben por que no me crea el archivo ????

[CH4ØZ]

ya encontre el problema


en vez de ser

Código [Seleccionar] Expandir


    CommonDialog1.DefaultExt = "*.txt"


era

Código [Seleccionar] Expandir


CommonDialog1.DefaultExt = ".txt"


disculpen