VBA Microsoft WinHTTP Services Library

Public Sub Example()

    Dim URL As String
    URL = "https://www.bing.com/"

    Dim Req As Object 'WinHttp.WinHttpRequest
    Set Req = CreateObject("WinHttp.WinHttpRequest.5.1")

    With Req

        .Open "GET", URL, False
        .Send

        Debug.Print "Response Headers:"
        Debug.Print .getAllResponseHeaders

        Debug.Print "Response Text:"
        Debug.Print .responseText

    End With

    Set Req = Nothing

End Sub