Estoy tratando de hacer una solicitud XML a través de Excel VBA para uno de los enlaces internos (en nuestra empresa). cuando envío una solicitud y recibo una respuesta usando el código a continuación, obtengo el siguiente como texto de respuesta:

[{"CPN":"700-42887-01","ExtractDt":"2018-04-02 
00:00:00","Demand":"8645"},"CPN":"700-42887-01","ExtractDt":"2018-04-09 
00:00:00","Demand":"8985"},{"CPN":"700-42887-01","ExtractDt":"2018-04-16 
00:00:00","Demand":"9341"},{"CPN":"700-42887-01","ExtractDt":"2018-04-23 
00:00:00","Demand":"9589"},{"CPN":"700-42887-01","ExtractDt":"2018-04-30 
00:00:00","Demand":"9210"},{"CPN":"700-42887-01","ExtractDt":"2018-05-07 
00:00:00","Demand":"9698"},{"CPN":"700-42887-01","ExtractDt":"2018-05-14 
00:00:00","Demand":"9542"},{"CPN":"700-42887-01","ExtractDt":"2018-05-21 
00:00:00","Demand":"9692"},{"CPN":"700-42887-01","ExtractDt":"2018-05-28 
00:00:00","Demand":"10416"},{"CPN":"700-42887-01","ExtractDt":"2018-06-04 
00:00:00","Demand":"6777"},{"CPN":"700-42887-01","ExtractDt":"2018-06-11 
00:00:00","Demand":"12774"},{"CPN":"700-42887-01","ExtractDt":"2018-06-18 
00:00:00","Demand":"12912"},{"CPN":"700-42887-01","ExtractDt":"2018-06-25 
00:00:00","Demand":"12693"},{"CPN":"700-42887-01","ExtractDt":"2018-07-02 
00:00:00","Demand":"12895"},{"CPN":"700-42887-01","ExtractDt":"2018-07-09 
00:00:00","Demand":"13366"},{"CPN":"700-42887-01","ExtractDt":"2018-07-16 
00:00:00","Demand":"13550"},{"CPN":"700-42887-01","ExtractDt":"2018-07-23 
00:00:00","Demand":"7971"},{"CPN":"700-42887-01","ExtractDt":"2018-07-30 
00:00:00","Demand":"12442"},{"CPN":"700-42887-01","ExtractDt":"2018-08-06 
00:00:00","Demand":"12960"},{"CPN":"700-42887-01","ExtractDt":"2018-08-13 
00:00:00","Demand":"14106"},{"CPN":"700-42887-01","ExtractDt":"2018-08-20 
00:00:00","Demand":"13543"},{"CPN":"700-42887-01","ExtractDt":"2018-08-27 
00:00:00","Demand":"13570"},{"CPN":"700-42887-01","ExtractDt":"2018-09-03 
00:00:00","Demand":"13506"},{"CPN":"700-42887-01","ExtractDt":"2018-09-10 
00:00:00","Demand":"13914"},{"CPN":"700-42887-01","ExtractDt":"2018-09-17 
00:00:00","Demand":"13241"},{"CPN":"700-42887-01","ExtractDt":"2018-09-24 
00:00:00","Demand":"13449"}]

Quiero extraer solo el último valor: es decir, 13449. ¿Cuál es el código que necesito escribir para lograr esto?

¡Gracias de antemano!

Code utilizado

 Sub xmlparsing()
 Dim jstring As String

 With CreateObject("MSXML2.XMLHTTP")
  .Open "GET", "**INTERNAL COMPANY LINK HERE**", False
    .send
  If .Status <> 200 Then Exit Sub
  jstring = .responseText
   Debug.Print jstring
   End With`
 End Sub