Dim reader As Xml.XmlReader = Xml.XmlReader.Create("C:\t1.xml")
        reader.ReadStartElement("beispiel")
        While reader.IsStartElement AndAlso reader.Name = "hallo"
            reader.ReadStartElement()
            Debug.WriteLine(reader.ReadContentAsString())
            reader.ReadEndElement()
        End While

        Dim xd As New Xml.XmlDocument
        xd.Load("c:\t1.xml")
        Dim nl As Xml.XmlNodeList = xd.SelectNodes("beispiel/hallo")
 
        For Each n As Xml.XmlNode In nl
            Debug.WriteLine(n.InnerText)
        Next

        For i As Integer = 0 To nl.Count - 1
            Debug.WriteLine(nl(i).InnerText)
        Next

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov