Dim u1 As String = "https://maps.googleapis.com/maps/api/geocode/xml?address="
    Dim u2 As String = "&sensor=false&key=API-KEY"
    Dim addr As String = "1600 Amphitheatre Parkway, Mountain View, CA 94043, USA"
    Dim m_xmld As XmlDocument
    Dim m_nodelist As XmlNodeList
    Dim m_node As XmlNode
    addr = addr.Replace(" ", "+")
    u1 = u1 + addr + u2


    m_xmld = New XmlDocument()
    m_xmld.Load(u1)
    m_nodelist = m_xmld.SelectNodes("/GeocodeResponse/result/location")

    For Each m_node In m_nodelist
        Dim lat = m_node.ChildNodes.Item(0).InnerText
        Dim lon = m_node.ChildNodes.Item(1).InnerText
        MsgBox("lat" + lat + " " + "long" + lon)
    Next