MsgBox

|

Sub sample()

    'メッセージを表示する
    MsgBox "こんにちは"

End Sub