selectkey = MsgBox("あなたはパソコンで絵を描いています。"&vbCrLf&"さぁどうしますか？", 2 + 64, "お絵描きタイム")
Select Case SelectKey
Case 3
SelectKey = MsgBox("逮捕します", 0 + 64, "お絵描きタイム")
Case 4
SelectKey = MsgBox("フリーズしました。゜（ノ〜ヽ）゜。", 0 + 64, "お絵描きタイム")
Case 5
SelectKey = MsgBox("ちょ、待てよ", 0 + 64, "お絵描きタイム")
End Select