Private Sub btnXPath_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles btnXPath.Click, _
                                txtXmlPfad.Validated
 
        Dim xmlPfad As String = txtXmlPfad.Text
        Dim sAus As String = ""
 
        If xmlPfad <> "" Then
            Try
                Dim knoten As XmlNodeList = xmlDok.SelectNodes(xmlPfad)
                sAus = "Anzahl knoten: " & knoten.Count & vbCrLf
 
                For Each k As XmlNode In knoten
                    Dim cUnterknoten As Integer = 0
                    For i = 0 To k.ChildNodes.Count - 1
                        Console.WriteLine(i)
                        Console.WriteLine(k.ChildNodes(i).Name)
                        If k.ChildNodes(i).Name <> "#whitespace" Then
                            cUnterknoten += 1
                        End If
                    Next i
                    sAus &= "Name: " & k.Name & " Echte Unterknoten: " _
                            & cUnterknoten & vbCrLf
                    For Each uk As XmlNode In k.ChildNodes
                        If uk.HasChildNodes Then
                            sAus &= "Name: " & uk.Name & vbTab _
                            & "InnerText: " & uk.InnerText & vbCrLf
                        End If
                    Next
                Next
 
            Catch ausnahme As Exception
                MessageBox.Show("Fehler beim Einlesen" & vbCrLf & vbCrLf _
                                & ausnahme.Message)
            End Try
        End If
        txtAusgabe.Text = sAus
    End Sub
End Class