Imports <xmlns="http://earth.google.com/kml/2.0">
 
Public Class frm_main
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim XMLDoc As XElement = XElement.Load( _
          "http://maps.google.com/maps/geo?output=xml&q=reibschental 45, 78120," & _
          "furtwangen")
        Dim TrefferListe = From Knoten In XMLDoc.<Point> _
               Select coordinates = Knoten.<coordinates>
 
    End Sub
End Class