Option Explicit Dim Msg Const TITLE = "ダイアログ・クイズ" Msg = MsgBox("「アルプスの少女○○ジ」○○のところになにがくる？", vbQuestion + vbYesNoCancel, TITLE) If Msg = vbYes Then MsgBox "正解！たいしたもんだ。" , vbInformation, TITLE ElseIf …