I use this code for doing the same kind of thing.
You can drop the word bits out, but it should be clear to see what you need to do.
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to print the cover?"
Style = vbYesNo + None + vbDefaultButton2
Title = "Service Users...