Function LastFile(ByVal startDate As Date, ByVal endDate As Date) As _
      FileInfo
        Dim path As String = "C:\SunnyWebBox\XML-Dateien"
 
        Dim dir As New DirectoryInfo(path)
 
        Return (From fi In dir.GetFiles() _
                Where fi.LastWriteTime >= startDate AndAlso _
                      fi.LastWriteTime <= endDate).FirstOrDefault()
    End Function
 
 
 
 
    Sub Main()
 
 
        Dim Zeit1 As Date = Date.Today.AddDays(-167)
        Dim settings As New XmlReaderSettings()
        settings.IgnoreWhitespace = True
        settings.IgnoreComments = True
        Dim fnd As Boolean
        Dim reader As XmlReader
        Do
            reader = XmlReader.Create(LastFile(Zeit1, Date.Now).FullName, _
              settings)
 
            Do
 
 
                fnd = reader.ReadToFollowing("Key")
 
            Loop While fnd AndAlso reader.ReadString.Contains("E-Total DC-A") = _
              False
            Zeit1 = Zeit1.AddMinutes(1)
 
 
        Loop While reader.ReadString.Contains("E-Total DC-A") = False
 
        MsgBox(reader.ReadString)