Dim xread As New XmlTextReader("XMLData.xml")
With xread
.WhitespaceHandling = WhitespaceHandling.Significant
.Read()
Do
.Read()
Console.Write("ISBN: " & .GetAttribute("isbn") & " ")
Console.Write(xread.ReadElementString)
If .Name = "untertitel" Then
Console.Write(" - " & xread.ReadElementString)
End If
Console.WriteLine()
.Read()
Loop Until (.Name = "bücher")
.Close()
End With

<?xml version="1.0" encoding="utf-8" ?> 
<bücher>
<buch isbn="1-6856-7988-6>
<name>Das Weisenhaus</name>
<untertitel>Teil 1</untertitel>
</buch>
</bücher>

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE