<?xml version="1.0" encoding="UTF-8"?>
<Bücher>
  <Buch>	  
    <Seite></Seite>
    <Kapitel></Kapitel>
  </Buch>
  <Sonstiges>
  </Sonstiges>
</Bücher>

    Private Function AddChildNode(ByVal treeNode As TreeNode, ByVal xNode As _
      XmlNode) As TreeNode
        If xNode.HasChildNodes Then
            For Each childNode As XmlNode In xNode.ChildNodes
                If childNode.NodeType = XmlNodeType.Text OrElse _
                  childNode.NodeType = XmlNodeType.CDATA Then
                    treeNode.Tag = childNode.Value
                Else
                    Dim tn As TreeNode = treeNode.Nodes.Add(childNode.Name)
                    Me.AddChildNode(tn, childNode)
                End If
            Next
        End If
 
        Return treeNode
    End Function