MsgBoxを使ってその後の処理を分岐させる
Dim ans As Integer
ans = MsgBox("処理を行いますか？", vbYesNo + vbQuestion, "動作確認")
If ans = vbYes Then
MsgBox "開始します"
Else
MsgBox "中断します"
End If
buttons の引数
| 定数 | 値 | 内容 |
|---|---|---|
| vbYesNo | 4 | [はい]と[いいえ] |
| vbOKOnly | 0 | [OK]のみ |
| vbRetryCancel | 5 | [再試行]と[キャンセル] |
buttons の引数（アイコン）
| 定数 | 値 | 内容 |
|---|---|---|
| vbQuestion | 32 | 問い合わせアイコン |
| vbCritical | 16 | 警告アイコン |
| vbExcla,ation | 48 | 注意アイコン |
| vbInformation | 64 | 情報アイコン |
戻り値
| 定数 | 値 | 説明 |
|---|---|---|
| vbOk | 1 | [OK]ボタンが押された |
| vbCancel | 2 | [キャンセル]ボタンが押された |
| vbYes | 6 | [Yes]ボタンが押された |
| vbNo | 7 | [No]ボタンが押された |
| vbRetry | 4 | [再試行]ボタンが押された |