Exclusive Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, Address As Variant)On Mistake Resume NextIf InStr(1, WebBrowser2

Exclusive Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, Address As Variant)On Mistake Resume NextIf InStr(1, WebBrowser2 Document.body.innertext, “Boxer”) After That WebBrowser2.Document.GetElementById(“FirstName”).innertext = Text1.TextElseIf InStr(1, WebBrowser2.Document.body.innertext, “Type the characters the thing is when you look at the photo below.”) After that WebBrowser2.Document.GetElementById(“FirstName”).innertext = Text1.Text WebBrowser2.Document.GetElementById(“LastName”).innertext = Text2.Text WebBrowser2.Document.GetElementById(“Email”).innertext = Text3.Text WebBrowser2.Document.GetElementById(“Passwd”).innertext = Text4.Text WebBrowser2.Document.GetElementById(“PasswdAgain”).innertext = Text4.Text WebBrowser2.Document.GetElementById(“questions”).Value = …