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

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

【ソースコード】

[tips0054.vbs]
Option Explicit

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

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