アルプスのハイ/イイエ/ジ

Option Explicit
 Dim Msg
 Const TITLE = "ダイアログ・クイズ"
 Msg = MsgBox("「アルプスの少女○○ジ」○○のところになにがくる？", vbQuestion + vbYesNoCancel, TITLE)
 If Msg = vbYes Then
        MsgBox "正解！たいしたもんだ。" , vbInformation, TITLE
 ElseIf Msg = vbNo Then 'もしMsgがvbNoなら
        MsgBox "ブー！「アルプスの少女イイエジ」ってことはないだろ。" , vbCritical, TITLE
 Else
        MsgBox "キャンセルを押しました。" ,vbExclamation, TITLE
 End If

という文を発見しました。

Option Explicit
MsgBox "今の日付と時刻：" & Now & vbCrLf & _
"今日の日付：" & Date & vbCrLf & _
"今の時刻：" & Time

もです。（ドラッグすれば浮かび上がります。）