Excel Store

Function ParserXML(ByVal iAdress As String)
Dim XMLDoc As New MSXML2.DOMDocument, nodeList As MSXML2.IXMLDOMNodeList

iURL = "http://geocode-maps.yandex.ru/1.x/?geocode=" & iAdress & "&key=AMsJFVIBAAAA6b1EZgIARt3xxKvqDXFSuzYNLrfjJlyduEsAAAAAAAAAAABtEHh2MEhJiiNct5e0zKVyv2ggKA==&results=1"

AMsJFVIBAAAA6b1EZgIARt3xxKvqDXFSuzYNLrfjJlyduEsAAAAAAAAAAABtEHh2MEhJiiNct5e0zKVyv2ggKA==

Dim XMLDoc As New MSXML2.DOMDocument, nodeList As MSXML2.IXMLDOMNodeList

Dim XMLDoc As Object, nodeList As Object
Set XMLDoc = CreateObject("MSXML2.DOMDocument")

{
   "destination_addresses" : [ "Химки, Московская обл., Россия" ],
   "origin_addresses" : [ "Москва, Россия" ],
   "rows" : [
      {
         "elements" : [
            {
               "distance" : {
                  "text" : "20,5 км",
                  "value" : 20472
               },
               "duration" : {
                  "text" : "34 мин.",
                  "value" : 2060
               },
               "status" : "OK"
            }
         ]
      }
   ],
   "status" : "OK"
}

regex.Pattern = "distance(?:.|\n)*?""text"".*?([0-9]+)"