Как получить ссылкуу IE HTMLDocument? - VB

Формулировка задачи:

я имею ссылку на объект HTMLDocument, который открыт в IE. Как я могу получить ссылку на IE?

Решение задачи: «Как получить ссылкуу IE HTMLDocument?»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> X()
    <font color="blue">Dim</font> objIE <font color="blue">As</font> SHDocVw.InternetExplorer
    <font color="00AA00">'Dim HTMLDocument As MSHTML.IHTMLDocument2</font>
    <font color="blue">Dim</font> appShell <font color="blue">As</font> SHDocVw.ShellWindows
    <font color="blue">Dim</font> appWindow <font color="blue">As</font> SHDocVw.InternetExplorer
    
    <font color="blue">Set</font> objIE = <font color="blue">New</font> SHDocVw.InternetExplorer

    objIE.Visible = True
    objIE.navigate <font color="teal">"www.ya.ru"</font>
    
    <font color="blue">Do</font> <font color="blue">Until</font> objIE.readyState = READYSTATE_COMPLETE
        DoEvents
    <font color="blue">Loop</font>
    
    <font color="00AA00">'Set HTMLDocument = objIE.document</font>
    <font color="00AA00">'Debug.Print HTMLDocument.body.innerText</font>
        
    <font color="blue">Set</font> appShell = <font color="blue">New</font> SHDocVw.ShellWindows
    
    <font color="blue">For</font> <font color="blue">Each</font> appWindow <font color="blue">In</font> appShell
        <font color="blue">If</font> appWindow.LocationURL Like <font color="teal">"*www.ya.ru*"</font> <font color="blue">Then</font>
            Debug.<font color="blue">Print</font> appWindow.Application
            Debug.<font color="blue">Print</font> appWindow.LocationName
            <font color="blue">Exit</font> <font color="blue">For</font>
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Next</font> appWindow
<font color="blue">End</font> <font color="blue">Sub</font>
                        