Imports System.Xml
Imports System.Text
Imports System.IO

Module xml_Lesen

    Sub Main()

        Dim xmlr As XmlTextReader
        xmlr = New XmlTextReader("C:\Temp\ZWeiVorlesungen.xml")

        Do While xmlr.Read()
            If xmlr.NodeType = XmlNodeType.Element Then
                Console.WriteLine("Node-Name:" + xmlr.Name)

                If xmlr.AttributeCount > 0 Then
                    Do While xmlr.MoveToNextAttribute()
                        Console.WriteLine("Attribute-Name:" + xmlr.Name + " Attribute-Value:" + xmlr.Value)
                    Loop

                End If

            ElseIf xmlr.NodeType = XmlNodeType.Text Then
                Console.WriteLine("Node-Value:" + Format(xmlr.Value))
            End If

        Loop


    End Sub

End Module