Imports System.Xml
Imports System.IO
Imports System.Xml.XPath
 
 Public Function readpass(ByVal path As String)
 
        Dim XMLReader As Xml.XmlReader _
          = New Xml.XmlTextReader(path)
 
 
        ' Es folgt das Auslesen der XML-Datei 
        With XMLReader
 
            Do While .Read ' Es sind noch Daten vorhanden 
 
                ' Welche Art von Daten liegt an? 
                Select Case .NodeType
 
                    ' Ein Element 
                    Case Xml.XmlNodeType.Element
 
                        Console.WriteLine("Es folgt ein Element vom Typ " & _
                          .Name)
                        Form1.TextBox1.Text = Form1.TextBox1.Text & "  " & .Name
                        ' Alle Attribute (Name-Wert-Paare) abarbeiten 
                        If .AttributeCount = 0 Then Form1.TextBox1.Text = _
                          Form1.TextBox1.Text & vbNewLine
                        If .AttributeCount > 0 Then
                            ' Es sind noch weitere Attribute vorhanden 
                            While .MoveToNextAttribute ' nächstes 
                                Console.WriteLine("Feldname: " & .Name & _
                                " -> " & _
                                "Feldwert: " & .Value)
                                Form1.TextBox1.Text = Form1.TextBox1.Text & " " & _
                                  "" & .Value & vbNewLine
 
 
                            End While
 
                        End If
 
                        ' Ein Text 
                    Case Xml.XmlNodeType.Text
                        Console.WriteLine("Es folgt ein Text: " & .Value)
                        'Form1.TextBox1.Text = .Value
                        ' Ein Kommentar 
                    Case Xml.XmlNodeType.Comment
                        Console.WriteLine("Es folgt ein Kommentar: " & .Value)
                        'Form1.TextBox1.Text = .Value
                End Select
 
            Loop  ' Weiter nach Daten schauen 
 
            .Close()  ' XMLTextReader schließen 
 
        End With
 
 
 
  End Function