Private Sub Use_api_eve_central()
    Dim objNode As Object
    Url = "http://api.eve-central.com/api/marketstat?&hours=24&usesystem=30000142&typeid=" & Join(WorksheetFunction.Transpose(Range("$A3:$A10")), ",")
    Dim objDoc As Object
    Set objDoc = CreateObject("MSXML2.DOMDocument")
    objDoc.Load Url
    Do Until objDoc.readyState = 4
        DoEvents
    Loop
    XPath = "//marketstat/type/sell/percentile"
    Set objListOfNodes = objDoc.SelectNodes(XPath)
    For n = 0 To objListOfNodes.Length - 1
        Set objNode = objListOfNodes(n)
        typeid = objNode.ParentNode.ParentNode.Attributes(0).Text
        Percentile = Val(objNode.Text)
        Debug.Print typeid, Percentile
    Next
    Set objDoc = nothung
End Sub