Как выбрать вариант с fireevent «при изменении» с помощью VBA

Question

Я настоящий новичок, извините за синтаксис rubbi sh.

Я пытаюсь выбрать (щелкнуть) вариант (с "onchange") и не могу (я Много чего перепробовал за месяц, ничего не получилось). Я пытался объявить obj как iHtmlFormElement / SelectionElement - ничего не получилось.

Спасибо за помощь!

Мой код до сих пор:

Sub PL()

Dim DOC As MSHTML.HTMLDocument
Dim IE As InternetExplorer
Dim obj As Object

Set IE = New InternetExplorer
IE.Visible = True
IE.navigate "link"

Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

Set DOC = IE.document

DOC.getElementById("txtUsername").Value = "user"
DOC.getElementById("USMPWD").Value = "pass"
DOC.getElementById("BTNSUB").click

Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

Set DOC = IE.document
Set obj = DOC.getElementsByTagName("listBox")

???here I'm stuck


End Sub

Код html:

<select name="listBox" id="listBox" style="width: 240px;" onchange="javascript:setTimeout('__doPostBack(\'listBox\',\'\')', 0)" size="18">
    <option value="1">20</option>
    <option value="2">30</option>
    <option value="3">50</option>
    <option value="5">51</option>
    <option value="4">60</option>

</select>