VBA 解析 json

Sub Macro1()

Debug.Print "999"
Dim FilePath, strData
FilePath = "C:\Git\Test\JenProjects.json"
Open FilePath For Input As #1
Do While Not EOF(1)
    Line Input #1, strData
Loop

Close #1

Debug.Print strData
'MsgBox strData

strData = "[{""yyy"":""/t.\\8\\88""},{""yyy"":""9\\99""}]"
'age = "" & scobj.Eval("query[0].yyy") & scobj.Eval("query[1].yyy")
testJson (strData)

End Sub

Sub testJson(jsstr As String)
Dim scobj

 Set scobj = CreateObject("msscriptcontrol.scriptcontrol")
 ok = scobj Is Nothing

  Debug.Print TypeName(scobj) ' ScriptControl

'MsgBox ("77")

'Dim scobj As New MSScriptControl.ScriptControl
Dim age As String

scobj.Language = "JavaScript"

scobj.AddCode "var query = " & jsstr

age = "" & scobj.Eval("query[0].yyy")

Debug.Print "---" & age & ""

End Sub