title: Error parsing json excel vba
body: <p>I am using the jsonConverter.bas file from here <a href="https://github.com/VBA-tools/VBA-JSON" rel="nofollow noreferrer">https://github.com/VBA-tools/VBA-JSON</a>. </p>
  
  <p>When parsing json file most of the files are successfully parsed but there is issue with one file which returns <code>Error Parsing JSON</code>. </p>
  
  <p>Here is the json file if anyone is interested: <a href="http://s000.tinyupload.com/index.php?file_id=45560953732509718973" rel="nofollow noreferrer">http://s000.tinyupload.com/index.php?file_id=45560953732509718973</a></p>
  
  <p>Error parsing JSON:
  ï»¿{  "star
  ^
  Expecting '{' or '['</p>
  
  <p>Along with the JsonConverter.bas file I am using below sub:</p>
  
  <pre><code>Option Explicit
  
  Dim myPath As String, myFile As String
  Dim myExtension As String
  Dim FldrPicker As FileDialog
  Dim fD As Long, fColD As Long
  Dim cet
  
  Sub getDataFromJSON()
  
  Application.ScreenUpdating = False: Application.EnableEvents = False: Application.Calculation = xlCalculationManual
  
  Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
  With FldrPicker
    .Title = "Select A Target Folder"
    .AllowMultiSelect = False
      If .Show &lt;&gt; -1 Then GoTo NextCode
      myPath = .SelectedItems(1) &amp; "\"
  End With
  
  NextCode:
    myPath = myPath
    If myPath = "" Then GoTo ResetSettings
  
    myExtension = "*.json"
  
    myFile = Dir(myPath &amp; myExtension)
  
    Do While myFile &lt;&gt; ""
          Call getData
          myFile = Dir
    Loop
  
  Data.Activate
    MsgBox "Task Complete!"
  
  ResetSettings:
      Application.EnableEvents = True:    Application.Calculation = xlCalculationAutomatic: Application.ScreenUpdating = True
  End Sub
  
  Sub getData()
  ' Advanced example: Read .json file and load into sheet (Windows-only)
  ' (add reference to Microsoft Scripting Runtime)
  ' {"values":[{"a":1,"b":2,"c": 3},...]}
  
  Dim FSO As New FileSystemObject
  Dim JsonTS As TextStream, JsonText As String, Parsed As Dictionary
  
  Set JsonTS = FSO.OpenTextFile(myPath &amp; myFile, ForReading)
  JsonText = JsonTS.ReadAll
  JsonTS.Close
  
  Set Parsed = JsonConverter.ParseJson(JsonText)
  
  ' Prepare and write values to sheet
  Dim Value As Dictionary
  
  With Data
      fD = .Range("A" &amp; .Rows.Count).End(xlUp).Row + 1
      fColD = 34
  
      For Each Value In Parsed("events")
          .Cells(fD, fColD) = Value("t")
          .Cells(fD, fColD + 1) = Value("e")
          .Cells(fD, fColD + 2) = Value("ty")
          .Cells(fD, fColD + 3) = Value("x")
          .Cells(fD, fColD + 4) = Value("y")
          fColD = fColD + 5
      Next Value
  
        .Range("A" &amp; fD) = Parsed("startTime")
        .Range("B" &amp; fD) = Parsed("websitePageUrl")
        .Range("C" &amp; fD) = Parsed("session")("visitorId")
        .Range("D" &amp; fD) = Parsed("session")("playbackUrl")
        .Range("E" &amp; fD) = Parsed("visitTime")
        .Range("F" &amp; fD) = Parsed("engagementTime")
        .Range("G" &amp; fD) = Parsed("pageTitle")
        .Range("H" &amp; fD) = Parsed("url")
        .Range("I" &amp; fD) = Parsed("viewportWidth")
        .Range("J" &amp; fD) = Parsed("viewportHeight")
        .Range("K" &amp; fD) = Parsed("session")("id")
        .Range("L" &amp; fD) = Parsed("session")("created")
        .Range("M" &amp; fD) = Parsed("session")("lastActivity")
        .Range("N" &amp; fD) = Parsed("session")("duration")
        .Range("O" &amp; fD) = Parsed("session")("pages")
        .Range("P" &amp; fD) = Parsed("session")("country")
        .Range("Q" &amp; fD) = Parsed("session")("city")
        .Range("R" &amp; fD) = Parsed("session")("isp")
        .Range("S" &amp; fD) = Parsed("session")("lang")
        .Range("T" &amp; fD) = Parsed("session")("userAgent")
        .Range("U" &amp; fD) = Parsed("session")("browser")
        .Range("V" &amp; fD) = Parsed("session")("browserVersion")
        .Range("W" &amp; fD) = Parsed("session")("os")
        .Range("X" &amp; fD) = Parsed("session")("osVersion")
        .Range("Y" &amp; fD) = Parsed("session")("device")
        .Range("Z" &amp; fD) = Parsed("session")("referrer")
        .Range("AA" &amp; fD) = Parsed("session")("referrerType")
        .Range("AB" &amp; fD) = Parsed("session")("screenRes")
        .Range("AC" &amp; fD) = Parsed("session")("entryPage")
  
        'loadtimes
        cet = Split(Parsed("loadTimes"), ",")
        .Range("AD" &amp; fD) = Trim(Split(cet(0), ":")(1))
        .Range("AE" &amp; fD) = Trim(Split(cet(1), ":")(1))
        .Range("AF" &amp; fD) = Trim(Split(cet(2), ":")(1))
        .Range("AG" &amp; fD) = Trim(Split(cet(3), ":")(1))
  
  End With
  
  End Sub
  </code></pre>