title: Run-time error ‘424’ Object required when parsing JSON
body: <p>When I run this script it stops when the “For” loop starts with the error : Run-time error ‘424’ Object required.</p>
  <p>Any idea what I’m missing?</p>
  <pre><code> Sub getdata()
      Dim XMLReq As New MSXML2.XMLHTTP60
  
      Dim JsonText As String
      Dim jsonObject As Object, item As Object
      Dim i As Long
      
      XMLReq.Open &quot;POST&quot;, &quot;https://es.investing.com/stock-screener/Service/SearchStocks&quot;, False
      XMLReq.setRequestHeader &quot;Content-Type&quot;, &quot;application/x-www-form-urlencoded&quot;
      XMLReq.setRequestHeader &quot;Accept&quot;, &quot;application/json&quot;
      XMLReq.setRequestHeader &quot;X-Requested-With&quot;, &quot;XMLHttpRequest&quot;
      
      XMLReq.send &quot;country%5B%5D=5&amp;exchange%5B%5D=95&amp;exchange%5B%5D=2&amp;exchange%5B%5D=1&amp;sector=5%2C12%2C3%2C8%2C9%2C1%2C7%2C6%2C2%2C11%2C4%2C10&amp;industry=74%2C56%2C73%2C29%2C25%2C4%2C47%2C12%2C8%2C44%2C52%2C45%2C71%2C99%2C65%2C70%2C98%2C40%2C39%2C42%2C92%2C101%2C6%2C30%2C59%2C77%2C100%2C9%2C50%2C46%2C88%2C94%2C62%2C75%2C14%2C51%2C93%2C96%2C34%2C55%2C57%2C76%2C66%2C5%2C3%2C41%2C87%2C67%2C85%2C16%2C90%2C53%2C32%2C27%2C48%2C24%2C20%2C54%2C33%2C19%2C95%2C18%2C22%2C60%2C17%2C11%2C35%2C31%2C43%2C97%2C81%2C69%2C102%2C72%2C36%2C78%2C10%2C86%2C7%2C21%2C2%2C13%2C84%2C1%2C23%2C79%2C58%2C49%2C38%2C89%2C63%2C64%2C80%2C37%2C28%2C82%2C91%2C61%2C26%2C15%2C83%2C68&amp;equityType=ORD%2CDRC%2CPreferred%2CUnit%2CClosedEnd%2CREIT%2CELKS%2COpenEnd%2CRight%2CParticipationShare%2CCapitalSecurity%2CPerpetualCapitalSecurity%2CGuaranteeCertificate%2CIGC%2CWarrant%2CSeniorNote%2CDebenture%2CETF%2CADR%2CETC%2CETN&amp;eq_market_cap%5Bmin%5D=110630000&amp;eq_market_cap%5Bmax%5D=1990000000000&amp;pn=1&amp;order%5Bcol%5D=eq_market_cap&amp;order%5Bdir%5D=d&quot;
      
      If XMLReq.Status &lt;&gt; 200 Then
          MsgBox &quot;problem&quot; &amp; vbNewLine &amp; XMLReq.Status &amp; &quot;- &quot; &amp; XMLReq.statusText
          Exit Sub
      End If
          
      Set jsonObject = JsonConverter.ParseJson(XMLReq.responseText)
  
      For Each item In jsonObject
          Debug.Print item(&quot;stock_symbol&quot;)
          Debug.Print item(&quot;symbol&quot;)
          Debug.Print item(&quot;exchange_trans&quot;)
          Debug.Print item(&quot;industry_trans&quot;)
          Debug.Print item(&quot;last_eu&quot;)
          Debug.Print item(&quot;pair_change_percent_eu&quot;)
          Debug.Print item(&quot;eq_market_cap_eu&quot;)
          Debug.Print item(&quot;totalCount&quot;)
          Debug.Print item(&quot;link&quot;)
      Next
  
  End Sub
  </code></pre>