commondialog如何样区分是单击了“确定”还是“取消”

Option Explicit

Private Sub Command1_Click()
    On Error GoTo ErrHandler

    CommonDialog1.CancelError = True '<-
    CommonDialog1.ShowSave

    MsgBox "保存到 " & CommonDialog1.FileName
ExitEntry:
    Exit Sub
ErrHandler:
    If Err.Number = 32755 Then '<-
        MsgBox "取消"
    Else
        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical
    End If
    Resume ExitEntry
End Sub