{
"Open":{
"V1.0.1":"IS"
}
}

Dim ScriptObj As Object
Dim JsonStr As String
JsonStr = getjson
Set ScriptObj = CreateObject("MSScriptControl.ScriptControl")
ScriptObj.Language = "JavaScript"
ScriptObj.AddCode "var Json = " & JsonStr & ";"
MsgBox ScriptObj.eval("Json.Open.v1.0.0")
Dim JsonStr As String
JsonStr = getjson
Set ScriptObj = CreateObject("MSScriptControl.ScriptControl")
ScriptObj.Language = "JavaScript"
ScriptObj.AddCode "var Json = " & JsonStr & ";"
MsgBox ScriptObj.eval("Json.Open.v1.0.0")
请问各位大佬,我试的时候只有读V1.0.1的值出错,我想过用"\."代替.,但不可以,请问应该怎么读V1.0.1的值