IEでクリックされた要素を調べる

Class1.cls

Option Explicit

'PublicNotCreatable
Public Sub htmlEvent()
Attribute hoge.VB_UserMemID = 0
    'IHTMLEventObj

    Dim Win2 As MSHTML.IHTMLWindow2
    Set Win2 = IE.document.parentWindow
    
    Dim objElement As MSHTML.IHTMLElement
    Set objElement = Win2.event.srcElement
    MsgBox objElement.Name

End Sub

Module1.bas

Option Explicit

Public IE As Object

UserForm1.frm

Option Explicit

Private Sub UserForm_Initialize()

    Const url = "https://www.google.co.jp/?gws_rd=ssl"
    
    Set IE = CreateObject("Shell.Application").Windows.findwindowSW(url, Empty, 1, 0, 1)
    If IE Is Nothing Then Exit Sub

    Dim cls As New Class1
    IE.document.onclick = cls

End Sub