title: MS Access VBA Reverse Geocode
body: <p>I am using Access 2010 and am trying to reverse a geocode.  I want to specifify a lat\long location then the result to be shown in a listbox.  I have a form, with a list box and a command button.  The command button has the following onclick event: (I have X out my lat\long address : -) )</p>
  
  <pre><code>Dim XMLDoc As New DOMDocument
  Dim XMLNode As IXMLDOMNode
  Dim i As Long
  Dim lat As Double, lng As Double
  
  
  XMLDoc.Load "http://maps.googleapis.com/maps/api/geocode/xml?latlng=XX.XX,-X.XX&amp;sensor=false"
  
  
  Do Until XMLDoc.ReadyState = 4
  DoEvents
  Loop
  
  If Len(XMLDoc.Text) = 0 Then
      Call MsgBox("No data!")
      Exit Sub
  End If
  
  Set XMLNode = XMLDoc.selectSingleNode("/GeocodeResponse/result/formatted_address")
  
  For i = 0 To XMLNode.childNodes.length - 1
  
  Me.List1 = XMLNode.childNodes(i).baseName &amp; ": " &amp; XMLNode.childNodes(i).Text
  
  Next i
  </code></pre>
  
  <p>However, I am not able to retrieve any results - the list box is blank - where am I going wrong?</p>
  
  <p>Regards,</p>
  
  <p>Michael</p>