{
    "glossary": {
        "title": "example glossary",
		"GlossDiv": {
            "title": "S",
			"GlossList": {
                "GlossEntry": {
                    "ID": "SGML",
					"SortAs": "SGML",
					"GlossTerm": "Standard Generalized Markup Language",
					"Acronym": "SGML",
					"Abbrev": "ISO 8879:1986",
					"GlossDef": {
                        "para": "A meta-markup language, used to create markup languages such as DocBook.",
						"GlossSeeAlso": ["GML", "XML"]
                    },
					"GlossSee": "markup"
                }
            }
        }
    }
}

'Create a HTML file object
Set oHTML = CreateObject("htmlfile")
'Get the object reference to the window object
'this object would allow us to execute JavaScript
'as well as VBScript code inside the host html file
Set JS = oHTML.parentWindow
'Execute some code in host application
JS.execScript "var JSTest; JSTest = 10;"
'Access the variable declared in the java script
'execute above
MsgBox JS.JSTest

Dim lib, url, xmlHttp, json, JsonConvert, xmlDoc

lib = "C:\Bin\Net35\Newtonsoft.Json.dll"
url = "http://api.geonames.org/citiesJSON?north=44.1&south=-9.9&east=-22.4&west=55.2&lang=de&username=demo"

Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "POST", url, False
xmlHttp.send

json = "{ ""?xml"": { ""@version"": ""1.0"", ""@standalone"": ""no"" }, ""root"":"  & xmlHttp.responseText & "}"

Set JsonConvert = DOTNetFactory.CreateInstance("Newtonsoft.Json.JsonConvert", lib)
Set xmlDoc = JsonConvert.DeserializeXmlNode(json)

MsgBox xmlDoc.InnerXml