Как в Excel из макроса запросить адрес из по координатам GPS Google - VBA

Sub rasst()
    Dim sURI As String
    Dim oHttp As Object
    Dim htmlcode As String, poz As Long
    Dim outstr As String
    
    ' latlng=55.743673,37.642525 - координаты GPS, в htmlcode - результат запроса чемоданный код, но отловить адрес возможно. 
' Кроме того присваивая знаяение переменной SURI="http://maps.google.com/maps/api/geocode/xml?address=Берлин, Лютерштадт-Айслебен, Германия 4;&sensor=false&language=DE". Можно получить почтовый адрес по адресу в переменную - htmlcode.
' Для того чтобы получить координаты по адресу. Необходимо присвоить значение переменной SURI="http://maps.googleapis.com/maps/api/geocode/xml?address= MГ¤rkische Allee 67, 14979 GroГџbeeren, Deutschland&sensor=false&language=DE"
 
 
  
    sURI = "http://maps.googleapis.com/maps/api/geocode/json?latlng=55.743673,37.642525&sensor=false"
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    On Error GoTo 0
    If oHttp Is Nothing Then
        Exit Sub
    End If
    oHttp.Open "GET", sURI, False
    oHttp.Send
    htmlcode = oHttp.responseText
    
       
End Sub