"X"-Schaltfläche in Userform abfangen

Wie kann man das Schließen einer Userform über die "X"-Schaltfläche abfangen ?
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "So nicht !"
        Cancel = True
    End If
End Sub