Exit prompt problem

I have a problem with some code that i cant figure out whats is wrong. here it is:

Private Sub mnuExit_Click()
MsgBox "Do you really want to exit", vbYesNo, "Exit"
If vbYes Then
    End
    Else
    Cancel = 1
End If
End Sub

When you click "Yes" it exits. When you click "no" it exits. what am i doing wrong. (keep in mind that i am a beginner)

-Steve