<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
<ausgaben>
  <monat nummer="9">
    <posten>
      <zweck>Miete</zweck>
      <preis>581</preis>
      <datum>02.09.2008</datum>
    </posten>
    <posten>
      <zweck>Handy</zweck>
      <preis>20</preis>
      <datum>01.09.2008</datum>
    </posten>
  </monat>
  <monat nummer="10">
    <posten>
      <zweck>Miete</zweck>
      <preis>581</preis>
      <datum>01.10.2008</datum>
    </posten>
  </monat>
</ausgaben>

Dim XmlDoc As XPathDocument = New XPathDocument(pfad)
Dim Navigator As XPathNavigator
Navigator = XmlDoc.CreateNavigator()
Dim Iterator As XPathNodeIterator = Navigator.Select( _
  "/ausgaben/monat[@nummer='9']/posten")
 
   While Iterator.MoveNext()
       MsgBox(Iterator.Current.Name & ": " & Iterator.Current.Value)
    End While