Das befeuern sollte etwa so gehen
Dim doc4 As IHTMLDocument4 = DirectCast(IEApp.Document, IHTMLDocument4)
Dim doc4el As IHTMLElement4 = DirectCast(doc4.getElementById(ElementName), IHTMLElement4)
Dim dummy As Object = Nothing
Dim eventObj As IHTMLEventObj = doc4.CreateEventObject(dummy)
doc4el.FireEvent("onchange", eventObj)
...aber Event wird nicht ausgelöst 😟