json：
{
    "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")

请问各位大佬，我试的时候只有读V1.0.1的值出错，我想过用"\."代替.,但不可以，请问应该怎么读V1.0.1的值