VBA Microsoft HTML Object Library

Public Sub Example()

    Dim IE As Object 'SHDocVw.InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True
    IE.navigate "https://www.bing.com/"

    Do Until IE.readyState = 4 'READYSTATE_COMPLETE
        DoEvents
    Loop

    Dim HTMLDoc As Object 'MSHTML.HTMLDocument
    Set HTMLDoc = IE.document

    Debug.Print HTMLDoc.body.innerHTML

    IE.Quit

End Sub

Public Sub Example()

    Dim HTMLDoc As Object 'MSHTML.HTMLDocument
    Set HTMLDoc = CreateObject("htmlfile")

    Dim Req As Object 'MSXML2.XMLHTTP60
    Set Req = CreateObject("MSXML2.XMLHTTP.6.0")

    With Req
        .Open "GET", "https://www.bing.com/"
        .send
        If .readyState <> 4 Or .Status <> 200 Then
            Debug.Print .readyState, .Status
            Exit Sub
        End If
        HTMLDoc.body.innerHTML = .responseText
    End With

    Dim ATags As Object 'IHTMLElementCollection
    Set ATags = HTMLDoc.getElementsByTagName("a")

    Dim ATag As Object 'IHTMLAnchorElement
    For Each ATag In ATags
        Debug.Print ATag.href
    Next ATag

End Sub