not unloading my app if Cancel is picked

[Blaster]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Do really want to quit?", vbQuestion Or vbYesNo, "Quit?") = vbNo Then
Cancel = 1
End If
End Sub