Webscraping data from Yahoo Finance

Try this;

Sub Test()
'   Haluk - 15/03/2020
'   [email protected]
'
    Dim HTTP As Object, HTML As Object, i As Integer
    
    myURL = "https://finance.yahoo.com/quote/AMZN/profile?p=AMZN"
    
    Set HTML = CreateObject("HTMLFILE")
    Set HTTP = CreateObject("MSXML2.XMLHTTP")
    
    HTTP.Open "GET", myURL, False
    HTTP.send
    
    HTML.body.innerHTML = HTTP.responseText
    
    Set objCollection = HTML.getElementsByTagName("span")
    
    i = 0
    Do While i < objCollection.Length
      If objCollection(i).classname = "Fw(600)" Then
         If objCollection(i).getAttribute("data-reactid") = 21 Then
            xSector = objCollection(i).innerText
         ElseIf objCollection(i).getAttribute("data-reactid") = 25 Then
            xIndustry = objCollection(i).innerText
         ElseIf objCollection(i).getAttribute("data-reactid") = 29 Then
            xEmployees = objCollection(i).innerText
         End If
      End If
      i = i + 1
    Loop
    
    MsgBox "Sector = " & xSector & vbCrLf & _
           "Industry = " & xIndustry & vbCrLf & _
           "Num. of Employees = " & xEmployees
    
    Set HTML = Nothing
    Set HTTP = Nothing
End Sub