SoloCodigo

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