json的键值为数字，如何读取

mol1981

各位老师好：
问题：
{"cmsserver":"1","result":"0","1":"120","100":"0","101":"0","112":"0","113":"0","114":"0","115":"0","116":"0","128":"24985","129":"0","130":"0","131":"??B00000","132":"2","16":"UNIM2M.NJM2MAPN","17":"","18":"","19":"182.92.172.121","2":"10","20":"","21":"","22":"","23":"","24":"9001","25":"0","27":"11001","28":"11002","29":"202.96.42.113","3":"3","32":"0","33":"0","34":"60","39":"300","4":"10","40":"30","41":"30","44":"1000","45":"1000","46":"1000","47":"1000","48":"15","49":"0","5":"3","6":"10","64":"","65":"13888888888","66":"","67":"","68":"","69":"2","7":"3","70":"1200","71":"-1","72":"13888888888","73":"","80":"256","81":"0","82":"473169935","83":"-1","84":"0","85":"115","86":"5","87":"10800","88":"28800","89":"600","90":"0","91":"3276800","92":"900","93":"18170","94":"0"}
这个是一组json结构的数组，如何读取键值为85的数据，
Sub abc()
  
      Open ThisWorkbook.Path & "\" & "超速设置.txt" For Input As #1
        str1 = StrConv(InputB(LOF(1), 1), vbUnicode)
      Close #1
  
     Set x = CreateObject("ScriptControl"): x.Language = "JScript"
     Set y = x.eval("eval(" & str1 & ")")
     txt = y.85 '键名为85的键值怎么读？
   
     MsgBox txt
     
End Sub

这个是我的代码，无法通过
test.rar (14.39 KB, 下载次数: 1)

2019-10-1 17:25 上传

点击文件名下载附件

这个是附件，请各位老师帮忙看一下，谢谢

EH_LOVE

Sub a1()
    Set oDom = CreateObject("htmlfile")
    Set oWindow = oDom.parentWindow
    strHtml = Range("a1").Text 'A1里面存你上面的那个json数据就好了
    oWindow.execScript "a=" & strHtml
    MsgBox oWindow.eval("a[85]")
End Sub

mol1981

但是这个只能读数字，我如果需要cmsserver 的键值，是不是需要重新再写个代码，我现在需要两者兼顾，谢谢

EH_LOVE

天啊亲一样的啊
Sub a1()
    Set oDom = CreateObject("htmlfile")
    Set owindow = oDom.parentWindow
    strHtml = Range("a1").Text 'A1里面存你上面的那个json数据就好了
    owindow.execScript "a=" & strHtml
    MsgBox owindow.eval("a[85]")
    MsgBox owindow.eval("a.cmsserver")
End Sub

mol1981

万分感谢，可以了