Attribute VB_Name = "testdialog1"
Sub テスト()
    
    MsgBox "ダイアログテスト", vbOKOnly, "タイトル"
    
End Sub