Private Sub sXMLHTTP60()
    Const strURL     As String = "https://www.oslobors.no/ob_eng/" _
                            & "markedsaktivitet/#/details/EQNR.OSE/overview"
    Dim objXMLHTTP60 As Object
        Set objXMLHTTP60 = CreateObject("MSXML2.XMLHTTP.6.0")
        With objXMLHTTP60
            .Open "GET", strURL, False
            .send
            Do Until .readyState = 4 And .Status = 200 And .statusText = "OK"
                DoEvents
                Debug.Print .readyState
                Debug.Print .Status
                Debug.Print .statusText
            Loop
        End With
End Sub