用MsgBox 函式，參見以下程式碼
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" " 定義資訊。
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
用MsgBox 函式，參見以下程式碼
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" " 定義資訊。
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