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

    Dim ans As Integer

    ans = MsgBox("危険です。すぐにウィルス駆除をして下さい。" _
        , vbOKCancel + vbCritical, "テスト")

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

End Sub