Attribute VB_Name = "testdialog4"
Sub テスト()

    Dim msg As String
    msg = "こんにちは" & vbNewLine & "お元気ですか"

    MsgBox msg, vbOKCancel + vbInformation, "テスト"

End Sub