アルプスのハイ/イイエ/ジ
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
もです。(ドラッグすれば浮かび上がります。)