Private Sub XMLReader()
        Dim XMLReader As Xml.XmlReader _
          = New Xml.XmlTextReader("vokabeln.xml")
        With XMLReader
            Do While .Read
                Select Case .NodeType
                    Case Xml.XmlNodeType.Text
                        ListBox1.Items.Add(.Value)
                End Select
               Loop 
            .Close()
        End With
 
    End Sub