title: VBA Parsing with Json
body: <p>I am trying to parse this with JsonConverter.bas but everything i have tried is not working, I am coming to the conclusion that this is not json but i cannot figure else what it is and well how to parse it!</p>
  
  <p><div class="snippet" data-lang="js" data-hide="false" data-console="true" data-babel="false">
  <div class="snippet-code">
  <pre class="snippet-code-html lang-html prettyprint-override"><code>"{
    ""success"": true,
    ""delivered"": true,
    ""contactDetailsRequired"": false,
    ""message"": ""Signed For by: 29 CARDIFF EARLY MAI"",
    ""signature"": ""https://webservices.thedx.co.uk/PodImage/ImageHandler.ashx?tn=505012368126"",
    ""date"": ""08-02-2018"",
    ""serviceLevelName"": ""Tracked Mail"",
    ""time"": ""07:30:00"",
    ""trackedProductName"": ""TMS""
  }"</code></pre>
  </div>
  </div>
  </p>
  
  <p>I am trying to get each value as a string or an array which then i will insert on sheet, here is the code I have been playing with,</p>
  
  <p><div class="snippet" data-lang="js" data-hide="false" data-console="true" data-babel="false">
  <div class="snippet-code">
  <pre class="snippet-code-html lang-html prettyprint-override"><code> Dim httpObject As Object
   Set httpObject = CreateObject("MSXML2.XMLHTTP")
  
   sURL = "https://www.dxdelivery.com/umbraco/Api/TrackingApi/TrackingData?trackingNumber=505012368126&amp;postcode=&amp;trackingType=0"
  
   sRequest = sURL
   httpObject.Open "GET", sRequest, False
   httpObject.send
   sgetresult = httpObject.responseText
  MsgBox (sgetresult)
  
  Sheets("sheet1").Range("A1") = sgetresult
  
  Dim FSO As New FileSystemObject
  Dim JsonTS As TextStream
  Dim JsonText As String
  Dim Parsed As Dictionary
  
  ' Read .json file
  ' Parse json to Dictionary
  ' "values" is parsed as Collection
  ' each item in "values" is parsed as Dictionary
  Set Parsed = JsonConverter.ParseJson(sgetresult)
  
  MsgBox Parsed("""success""")</code></pre>
  </div>
  </div>
  </p>
  
  <p>Hope you can help,
  Thank you.</p>