可以使用 MsgBox 函数来设置选择项，具体的语法如下：
MsgBox(prompt, buttons, title)
其中，prompt 是要显示的消息内容，buttons 是按钮的样式和功能，title 是对话框的标题。
常见的 buttons 参数取值为：
0：仅显示 OK 按钮。
1：显示 OK 和取消按钮。
2：显示中止、重试和忽略按钮。
3：显示是、否和取消按钮。
4：显示是和否按钮。
5：显示重试和取消按钮。
6：显示帮助和 OK 按钮。
示例代码如下，其中显示了是和否的选择项：
result = MsgBox("是否继续操作？", 4, "提示")
If result = 6 Then
' 用户选择了是
MsgBox "用户选择了是"
Else
' 用户选择了否或关闭对话框
MsgBox "用户选择了否"
End If
以上代码会显示一个提示对话框，提示用户选择是否继续操作。如果用户选择了“是”，则会显示“用户选择了是”的消息框；如果用户选择了“否”或者关闭了对话框，则会显示“用户选择了否”的消息框。
