[RESOLVED] WebBrowser tag "A" click ?

[jmsrickland]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   '
   '
 Dim HTML As HTMLDocument
 Dim HTMLI As HTMLInputElement
     
 Set HTML = WebBrowser1.Document

 For Each HTMLI In HTML.getElementsByTagName("A")
   If HTMLI.innerHTML = "Gorev" Then
     HTMLI.Click
     Exit Sub  
   End If
 Next
   '
   '
End Sub