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 Koordianten = Knoten.<coordinates>