[メッセージボックスを使う]

ボタンの2つ付いた確認用のメッセージボックスと、ボタン1つの表示用のメッセージボックスを作成します。

【ソースコード】
[tips0054.vbs]
Option Explicit

Dim lngAnswer   ' 答え
Dim strYesNo    ' はい/いいえ文字列

lngAnswer = MsgBox("処理を継続しますか?", vbYesNo + vbQuestion)
strYesNo = Array("はい", "いいえ")
MsgBox strYesNo(lngAnswer - vbYes) & "が押されました"