You should be able to adapt this to suit:
You don't need to use all of the criteria, just remember to include all commas prior to each one you do use.
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title =...