Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(file)
 
                With XMLReader
 
                    Do While .Read  'Alle Daten durchlaufen 
 
                        ' Welche Art von Daten liegt an? 
                        Select Case .NodeType
 
                            ' Ein Element 
                            Case Xml.XmlNodeType.Element
                                If .Name = "entity" Then
                                    .Read()
                                    _entity = .Value
                                End If
                        End Select
                    Loop
                    .Close()