解析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"": ""[email protected]"" },{ ""firstName"": 123, ""lastName"":""Hunter"", ""email"": ""[email protected]"" }, { ""firstName"": ""Elliotte"", ""lastName"":""Harold"", ""email"": ""[email protected]"" }]}"
  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解析器吧