Im trying to run this code but when I click the Yes or No buttons nothing happens.

If Me.Input = "UserInput" then
Msgbox "Click Yes to Continue No to cancel", vbyesno
If msgbox(vbyesno) = vbYes then
Me.Input = "UserInput"
Else
If msgbox(vbyesno) = vbNo then
Docmd.cancelevent
end if
end if
end sub

What I basically want to happen is that when a person clicks the Yes button a certain event occur and when he clicks No another event occur. At the moment I experiemented with the vbOKOnly and worked but not with vbYesNo, vbOKCancel etc.

What the hec am I doing wrong here?

Fouche