Public Sub kontakte_aus_xml_lesen()
 
        ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei 
        Dim XMLReader As Xml.XmlReader _
          = New Xml.XmlTextReader("kontakte.xml")
 
        ' 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)
 
                        ' Alle Attribute (Name-Wert-Paare) abarbeiten 
                        If .AttributeCount > 0 Then
                            ' Es sind noch weitere Attribute vorhanden 
                            While .MoveToNextAttribute ' nächstes 
                                Console.WriteLine("Feldname: " & .Name & _
                                " -> " & _
                                "Feldwert: " & .Value)
                            End While
 
                        End If
 
                        ' Ein Text 
                    Case Xml.XmlNodeType.Text
                        Console.WriteLine("Es folgt ein Text: " & .Value)
 
                        ' Ein Kommentar 
                    Case Xml.XmlNodeType.Comment
                        Console.WriteLine("Es folgt ein Kommentar: " & .Value)
 
                End Select
 
            Loop  ' Weiter nach Daten schauen 
 
            .Close()  ' XMLTextReader schließen 
 
        End With
 
        ' Und so sieht das Ergebnis der Ausgabe aus: 
        ' ------------------------------------------ 
        'Es folgt ein Element vom Typ Personen 
        'Es folgt ein Element vom Typ Person 
        'Feldname: Titel -> Feldwert: Dr. 
        'Feldname: Name -> Feldwert: Meyer 
        'Feldname: Vorname -> Feldwert: Hans 
        'Es folgt ein Element vom Typ Person 
        'Feldname: Titel -> Feldwert: 
        'Feldname: Name -> Feldwert: Schmidt 
        'Feldname: Vorname -> Feldwert: Carlos 
 
    End Sub