VB6 JSON

Private Sub Form_Load()
    Dim o As Object, json As Object
    Set o = CreateObject("MSScriptControl.ScriptControl")
    o.Language = "JScript"
    Set json = o.eval("({'id':90,'blah':21})")
    Debug.Print TypeName(json) 'JScriptTypeInfo
    Debug.Print "id: " & json.id & " blah:" & json.blah
End Sub

Private Sub Form_Load()
    Dim elem As Object, sc As Object
    Set sc = CreateObject("MSScriptControl.ScriptControl")
    sc.Language = "JScript"
    sc.addcode "var json = [{'id':90,'blah':21}]"
    Set elem = sc.Eval("json[0]")
    'InputBox "objptr", , Hex(ObjPtr(elem))
    Debug.Print "id: " & elem.id & " blah:" & elem.blah
End Sub