Ahí te hice la modificación para trabajar con la captura de errores y detectar que presionó el botón cancelar:
Private Sub Command1_Click()
Cdl1.Filter = "Archivo de texto(*.txt)|*.txt"
Cdl1.CancelError = True
On Error Resume Next
Cdl1.ShowSave
If Err.Number = 0 Then
Open Cdl1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If
End Sub
Saludos,
Javier
