title: How to parse JSON with VBA without external libraries?
body: <p>I have a json like below:</p>
  
  <pre><code>{"sentences":[{"trans":"something ru","orig":"english word","translit":"Angliyskoye slovo","src_translit":""}], "src":"en","server_time":69}
  </code></pre>
  
  <p>and parse it:</p>
  
  <pre><code>Function jsonDecode(jsonString As Variant)
      Set sc = CreateObject("ScriptControl"): sc.Language = "JScript"
      Set jsonDecode = sc.Eval("(" + jsonString + ")")
  End Function
  
  Set arr = jsonDecode(txt)
  </code></pre>
  
  <p>In result <code>arr</code> contains values like below (checked at Watches):</p>
  
  <pre><code>arr
   - sentences (type: Variant/Object/JScriptTypeInfo)
    - 0 (type: Variant/Object/JScriptTypeInfo)
      - orig (type: Variant/String)
      - trans (type: Variant/String)
      ...
    - Item 1 (type: Variant/Object/JScriptTypeInfo)
      - orig (type: Variant/String)
      - trans (type: Variant/String)
      ...
   - server_time
   - src
  </code></pre>
  
  <p><code>arr.src</code> works well, but how can I get <code>arr.sentences(0).trans</code>? Firstly, VBA replaces <code>sentences</code> with <code>Sentences</code>, secondly (when I've tried to change the json manually) it still doesn't allow to use <code>sentenses(0)</code>.</p>