VBAでWebサイト上のテキストボックスのonchangeイベントを発生させたい

Question

前提・実現したいこと

VBAでWebサイト上のテキストボックスに値を入力し、当該テキストボックスのonchangeイベントに設定されている関数「"onchangeMyTxtBox(this)」を実行させたいです。

検討している実装方法で課題となるIEventTarget型としてのテキストボックスボックスの取得、もしくはIHTMLElement型からIEventTarget型へのキャストの方法がわからないため方法を教えていただけないでしょうか。
そもそもこ実装方法をかえて、別の実装方法（直接関数を実行させるなど）のアドバイスでもいただけると幸いです。

＜検討している実装方法＞
当該テキストボックスのonchangeイベントをMSHTML.IEventTargetクラスの
dispatchEventを用いて発生させることで、当該関数を実行する

発生している問題・エラーメッセージ

当該テキストボックスをIEventTarget型オブジェクトとして取得できない。MSHTML.IHTMLElement型オブジェクトとして取得はできるが、その場合は
MSHTML.IEventTarget型にキャストしないとdispatchEventで
onchageイベントを発生させられない。
ソースコードの下から2行目で型不一致のエラーが発生します。

該当のソースコード

 <INPUT type="text" name="my_txtbox" class="my_class" onBlur="onblurMyTxtBox(this)" onChange="onchangeMyTxtBox(this)">

Dim ie As InternetExplorer
Dim doc As HTMLDocument
Dim elm As IHTMLElement
Dim trgt As IEventTarget
Dim evt As DOMEvent

Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "https://mytestsite.jp"
ie.Visible = True
Call waitIE(ie)

Set doc = ie.document
Set evt = doc.createEvent("HTMLEvents") '
evt.initEvent "change", True, True

'勤務時間の入力
Set elm = ie.document.getElementsByName("my_txtbox")(0)
elm.Value = "test"
Set trgt = ie.document.getElementsByName("my_txtbox")(0) '★「型が一致しません」エラー（要キャスト）
trgt.dispatchEvent (evt)

試したこと

・キャストせずにie.document.getElementsByName("my_txtbox").dispatchEvent (evt)
→ IHTMLElement型にはdispatchEventメソッドがないため「メソッドが存在しません」エラー
※Web上ではこれで動くという記述もあり、Excelのバージョンが古いのが原因？

・キャストせずにie.document.getElementsByName("my_txtbox").fireEvent ("onchange")
→ エラーは出ないがIE11では動作しない

・Ctype関数でキャストする
→ VBAには存在しない

・trgt = ie.document.getElementsByName("my_txtbox")(0).objectとして
コンパイラにキャストさせる
→ IHTMLElement型にはobjectプロパティがない

補足情報（FW/ツールのバージョンなど）

IEのバージョン11
ExcelのバージョンMicrosoft Office Professional Plus 2010

Comments

[m.ts10806]

trgt変数はIEventTargetとして宣言されていますが、そこは問題ないですか？elmと同じ情報を格納するのでしたらIHTMLElementとして宣言する必要があるように思いますが。

[demeKIN]

trgt変数の型はあっています。オブジェクトブラウザで調べたところ、dispatchEventメソッドを呼び出せるのはIEventTarget型でしたので、elmをtrgrにキャストしようとしています。

[m.ts10806]

ではgetElementsByName()の返り値はあくまでIHTMLElementなので、IEventTarget型を返すメソッドにしないといけませんね。キャストの問題ではなさそうです。

[demeKIN]

はい、対象のテキストボックスをIEventTarget型として取得できれば解決できるのですが、方法が見つからずキャストしようとしています。もう少し調べてみますが、IEventTarget型を返すメソッドについて情報いただければ助かります。

Answer 1

私の勘違いが原因でした。問題は解決しました。
結論から言うと、onchangeイベントはMSHTML.IHTMLElement型のfireeventメソッドで実行、
もしくはonchangeプロパティを呼び出すことで発生可能でした。
fireeventメソッドはIE11で推奨されていませんが動作するようです。

onchangeイベントの実行方法

ie.document.getElementsByName("my_txtbox").fireEvent ("onchange")
' もしくは
ie.document.getElementsByName("my_txtbox").onchange

試したこととして、fireeventでは動作しないと書いていましたが私の勘違いでした。
やりたいことが「onchangeMyTxtBox(this)」では実行されず、
実際は「onblurMyTxtBox(this)」で実行されることに気付き、
「onchangeMyTxtBox(this)」が動かないと勘違いしていました。

推奨されているMSHTML.IEventTargetクラスのdispatchEventを実行する方法は
不明のままですが、目的としていたonchangeイベントを発生させるということは
実現できましたので解決とします。

ご協力いただいたみなさま、ありがとうございました。