求助：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