Private WithEvents myDoc As HTMLDocument
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   If URL = "DeineURL" Then
      Set myDoc = WebBrowser1.Document
   End If
End Sub
 
Private Sub myDoc_onmousedown()
   Dim Elem As IHTMLElement
   Set Elem = myDoc.parentWindow.event.srcElement
   If myDoc.parentWindow.event.button = 1 Then    ' Linke Maustaste angeklickt
      ' Mit Elem.tagname kriegst Du heraus, innerhalb welches HTML-Tags 
      ' geklickt wurde
      ' Elem hat noch weitere Eigenschaften, je nach tagname ... vielleicht 
      ' kriegst Du darüber etwas heraus ...
   End If
End Sub