Public Function JsonParse(jsonStr As String) As Object
    With CreateObject("HTMLFile")
       Set Window = .parentWindow
       Window.execScript "var json = " & jsonStr, "JScript"
       Set JsonParse = Window.json
    End With
End Function