Try this

Code:
if msgbox("your question", vbYesNo) = vbYes then
   ....
else
   ....
end if