Sub test()
'メッセージを表示する
MsgBox "こんにちは" 'メッセージのみ
MsgBox "こんばんは",vbInformation 'アイコンも表示する
MsgBox "おはようございます",vbInformation,"タイトル" 'タイトルも表示する
End Sub
'メッセージを表示する
MsgBox "こんにちは" 'メッセージのみ
MsgBox "こんばんは",vbInformation 'アイコンも表示する
MsgBox "おはようございます",vbInformation,"タイトル" 'タイトルも表示する
End Sub


