Sub メッセージボックス_選択型_表示する() 選択結果 = MsgBox("処理を開始しますか?", vbYesNo, "タイトルはここ") If 選択結果 = vbYes Then 'はいの場合 'はいの場合の処理 ElseIf 選択結果 = vbNo Then 'いいえの場合 'いいえの場合の処理 End If End Sub