Attribute VB_Name = "testdialog2"
Sub テスト()
    Dim ans As Integer

    ans = MsgBox("実行しますか？", vbOKCancel, "テスト")

    If ans = vbOK Then
        Range("A1").Value = "OKが押されました"
    Else
        Range("A1").Value = "キャンセルが押されました"
    End If

End Sub