IE.navigate HRef, navOpenInNewWindow Как получить ссылку на новый документ - VB

<font color="blue">Private</font> <font color="blue">WithEvents</font> objIE1 <font color="blue">As</font> SHDocVw.InternetExplorer
<font color="blue">Private</font> objIE2 <font color="blue">As</font> SHDocVw.InternetExplorer

<font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_Activate()
    <font color="blue">Dim</font> strURL <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Const</font> navOpenInNewWindow = <font color="darkblue"><b>1</b></font>

    <font color="blue">Set</font> objIE1 = CreateObject(<font color="teal">"InternetExplorer.Application"</font>)
    
    objIE1.Visible = True
    objIE1.navigate <font color="teal">"www.yandex.ru"</font>
    
    <font color="blue">While</font> objIE1.Busy
        DoEvents
    <font color="blue">Wend</font>
    
    strURL = objIE1.document.Links(<font color="darkblue"><b>20</b></font>).href
        
    objIE1.navigate strURL, navOpenInNewWindow
    objIE2.navigate <font color="teal">"www.rambler.ru"</font>
    
    <font color="blue">While</font> objIE2.Busy
        DoEvents
    <font color="blue">Wend</font>
    
    MsgBox objIE2.LocationURL
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> objIE1_NewWindow2( _
  <font color="blue">ByRef</font> ppDisp <font color="blue">As</font> <font color="blue">Object</font>, _
  <font color="blue">ByRef</font> Cancel <font color="blue">As</font> <font color="blue">Boolean</font>)
    <font color="blue">Set</font> objIE2 = CreateObject(<font color="teal">"InternetExplorer.Application"</font>)
    <font color="blue">Set</font> ppDisp = objIE2.Application
<font color="blue">End</font> <font color="blue">Sub</font>