Visual Basic - No se que esta mal

Hola, tengo este codigo y no se por que al momentos de guarda me guarda el archivo pero sin los datos dentro si no que con el nombre del archivo, cual es el error?

Private Sub CmdGuardar_Click()

Dim nCanal As Integer
On Error GoTo error
CD.DialogTitle = "Guardar Archivo "
CD.Filter = "Archivo de Texto (*.Doc; *.Txt)|*.Doc; *.Txt|Todos los Archivos(*.*)|*.*"""
CD.ShowSave
nCanal = FreeFile
Open CD.FileName For Output As nCanal
Print #nCanal, txtUU.Text
Close #nCanal
Exit Sub
error:
Close #nCanal
Exit Sub

End Sub

No se si sera por esto lo que no te funciona, pero en cd.filter te sobran las ultimas dos comillas, y al abrir el fichero en la instruccion open antes de nCanal tienes que poner la # delante. Tambien te sobra el ultimo exit sub, el codigo modificado te quedaria asi:

Private Sub CmdGuardar_Click()

Dim nCanal As Integer
On Error GoTo error
CD.DialogTitle = "Guardar Archivo "
CD.Filter = "Archivo de Texto (*.Doc; *.Txt)|*.Doc; *.Txt|Todos los Archivos(*.*)|*.*"
CD.ShowSave
nCanal = FreeFile
Open CD.FileName For Output As #nCanal
Print #nCanal, txtUU.Text
Close #nCanal
on error goto 0
Exit Sub
error:
msgbox err.Description, vbCritical
Close #nCanal

End Sub