Private Sub Watch_Created(ByVal sender As Object, _
          ByVal e As System.IO.FileSystemEventArgs)
 
        Dim stream As New StreamReader(e.FullPath, System.Text.Encoding.Default)
        Dim settings As New Xml.XmlReaderSettings()
        settings.ConformanceLevel = Xml.ConformanceLevel.Fragment
        settings.IgnoreWhitespace = True
        settings.IgnoreComments = True
        Dim XMLReader As Xml.XmlReader = Xml.XmlReader.Create(stream, settings)
 
        ' Es folgt das Auslesen der XML-Datei 
        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()
stream.Close()
stream.Dispose()
end with
end sub