求助：VBA对json中的字典数据的提取

Sub bluejson()
Dim aa
Set x = CreateObject("ScriptControl"): x.Language = "JScript"
aa = "{""myname"":""excel_home"",""myaddress"":[{""city"":""Beijing""},{""city"":"" Chaoyang Road ""},{""city"":100025}]}"
Set y = x.eval("eval(" & aa & ")")
MsgBox y.myname
MsgBox y.myaddress
'这里如何获取到列表里city的值
End Sub

我能想到的是先把数据清洗一下，然后用Split拆成数据再入进字典中

Dim d
Dim Json
Set Script = CreateObjectx86("MSScriptControl.ScriptControl")
Json = "{""myname"":""excel_home"",""myaddress"":[{""city"":""Beijing""},{""city"":"" Chaoyang Road ""},{""city"":100025}]}"
Script.Language = "JScript"
For i = 0 To 2
Set d = Script.eval("eval(" & "(" & Json & ".myaddress)[" & i & "]" & ")")
Debug.Print Trim(d.city) ‘Beijing Chaoyang Road 100025
Next

法二（推荐）
'HTMLFILE
Sub getJsonData()
Dim List As String
Dim oDom As Object, oWindow As Object
Dim length As Integer
List = "{""myname"":""excel_home"",""myaddress"":[{""city"":""Beijing""},{""city"":"" Chaoyang Road ""},{""city"":100025}]}"
Set oDom = CreateObject("HTMLFILE")
Set oWindow = oDom.parentWindow
oWindow.execScript "d=" & List
length = oWindow.eval("d.myaddress.length") - 1
For i = 0 To length
Debug.Print Trim(oWindow.eval("d.myaddress[" & i & "].city"))
Next
End Sub

谢谢各位已回复，已解决！