<?xml version="1.0" encoding="utf-16"?>
<Wetter>
  <Stadt>
    <Name>Berlin</Name>
    <Temperatur>20</Temperatur>
    <Feuchte>10</Feuchte>
  </Stadt>
  <Stadt>
    <Name>Plauen</Name>
    <Temperatur>10</Temperatur>
    <Feuchte>11</Feuchte>
  </Stadt>
  <Stadt>
    <Name>Hof</Name>
    <Temperatur>15</Temperatur>
    <Feuchte>12</Feuchte>
  </Stadt>
 </Wetter>

Private Sub btn_find_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_find.Click
        Dim XmlDoc As New XDocument
        XmlDoc = XDocument.Load("XMl_Test.xml")
 
        Dim Abfrage = From Stadt In XmlDoc.<Wetter>.<Stadt> Where _
          Stadt.<Temperatur>.Value > 10
                  Select Stadt.<Name>
 
        ListBox1.Items.Clear()
 
        For Each Stadt In Abfrage
            ListBox1.Items.Add(Stadt.Value)
        Next
    End Sub