Public Sub X()
    Dim objIE As SHDocVw.InternetExplorer
    'Dim HTMLDocument As MSHTML.IHTMLDocument2
    Dim appShell As SHDocVw.ShellWindows
    Dim appWindow As SHDocVw.InternetExplorer
    
    Set objIE = New SHDocVw.InternetExplorer

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