error acedss denied reverse geocode

[luca90]

Sub Getadress()
    
    Dim myURL As String
    Dim lat As String
    Dim lon As String
    Dim txt As String, test As String
    
    lat = "40.848641"
    lon = "14.225083"
    
    
    myURL = "http://nominatim.openstreetmap.org/reverse?format=xml&lat=" & lat & "&lon=" & lon & "&addressdetails=1"
    Debug.Print myURL
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    
    WinHttpReq.send<<<<<<<<<<<<<error here
    
    If WinHttpReq.Status = 200 Then
        txt = WinHttpReq.responseText
        test = getfield(txt, "road") & getfield(txt, "postcode") & getfield(txt, "village") & getfield(txt, "country")
        Debug.Print test
    End If
    
End Sub