Para el caso de vb6 debes agregar la referencia Microsoft HTML object library
En el siguiente codigo hace click desde un boton a la etiqueta <a> con el id=HQ
Código vb:
Ver originalOption Explicit
Dim HTML As HTMLDocument
Private Sub Command1_Click()
WebBrowser1.Document.getElementById("HQ").Click
End Sub
Ahora modificando un poco y haciendo algo rustico se puede hacer asi
Código vb:
Ver originalPrivate Sub Command1_Click()
On Error GoTo Err
Dim x As String
x = WebBrowser1.Document.getElementById("HQ")
If Not x = "" Then
MsgBox "Existe"
End If
Exit Sub
Err:
MsgBox "No existe" 'Si se produce un error quiere decir que no existe
End Sub
Bueno nose que mas aportar, en todo caso seria bueno que cuando soluciones coloques el codigo en vb2008