Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Item, Address As Variant)On Error Resume NextIf InStr(1, WebBrowser2
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Item, Address As Variant)On Error Resume NextIf InStr(1, WebBrowser2 Document.body.innertext,…