Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim oDoc1 As HTMLDocument
Set oDoc1 = pDisp.Document
oDoc1.parentWindow.execScript "function alert(){return;}"
oDoc1.parentWindow.execScript "function confirm(){return;}"
oDoc1.parentWindow.execScript "function showModalDialog(){return;}"
End Sub