Sub メッセージボックス_警告形式で表示()

    MsgBox "表示したいメッセージ", vbCritical, "タイトルはここ"

End Sub