vb弹出提示框的代码应该怎么写？

用MsgBox 函数，参见以下代码

    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Do you want to continue ?"   ' 定义信息。
    Style = vbYesNo + vbCritical + vbDefaultButton2   ' 定义按钮。
    Title = "MsgBox Demonstration"   ' 定义标题。
    Help = "DEMO.HLP"   ' 定义帮助文件。
    Ctxt = 1000   ' 定义标题
          ' 上下文。
          ' 显示信息。
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then   ' 用户按下“是”。
        MyString = "Yes"   ' 完成某操作。
    Else   ' 用户按下“否”。
        MyString = "No"   ' 完成某操作。
    End If

代码摘引自MSDN 

v=MsgBox("选择Yes或No", vbYesNo)
if v=vbYes then
end
else
end
end if

参考文献：http://zhidao.baidu.com/question/87866806.html