解析json数组,该怎么解决

解析json数组
Sub figjson3() 'ok 可以解析json数组 ,请教高手怎么解析数组嵌套数组.
Dim aa
aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""street"":"" Chaoyang Road "",""postcode"":100025}}"
   
  Set X = CreateObject("ScriptControl")
  X.Language = "JScript"
   
  s = "function j(s) { return eval('(' + s + ')'); }"
  X.AddCode s
  Set y = X.Run("j", aa)
   
  MsgBox y.myname
  MsgBox y.myaddress
MsgBox y.myaddress.city
MsgBox y.myaddress.postcode
End Sub


例子  
Sub jsontest() 'error
Dim aa
aa = "{ ""people"": [{ ""firstName"": [{'code':'40001','name':'累计折旧/固定资产原值'},{'code':'40005','name':'累值'}], ""lastName"":""McLaughlin"", ""email"": ""brett@newInstance.com"" },{ ""firstName"": 123, ""lastName"":""Hunter"", ""email"": ""jason@servlets.com"" }, { ""firstName"": ""Elliotte"", ""lastName"":""Harold"", ""email"": ""elharo@macfaq.com"" }]}"
  Set X = CreateObject("ScriptControl")
  X.Language = "JScript"
  i = 0
  s = "function j(s) { return eval('(' + s + ').people[ " & i & "]'); }"
  X.AddCode s
  Set y = X.Run("j", aa)

  Debug.Print y.firstName.code
  Debug.Print y.firstName, y.lastName
End Sub

------解决方案--------------------
http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html
去这里下载json解析器吧
------解决方案--------------------
不会啊，能下载，你这是什么网啊，墙这么厉害？
http://www.ediy.co.nz/content.asp?syscmd=dl&ID=A06786CB3E7E4F878FA542DBEE4B60B5