Sub bluejson()  'ok

    Dim aa

    Set x = CreateObject("ScriptControl"): x.Language = "JScript"

    aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""street"":"" Chaoyang Road "",""postcode"":100025}}"

    Set y = x.eval("eval(" & aa & ")")

    MsgBox y.myname

    MsgBox y.myaddress

    MsgBox y.myaddress.city

    MsgBox y.myaddress.postcode

    'Stop

End Sub