Sub GetFiles(ByVal path As String)
        Dim sFile As String
        Dim sPath As String
        Dim Empfaenger As String
        Dim index1 As Integer
        Dim index2 As Integer
        Dim index3 As Integer
        Dim index4 As Integer
        Dim index5 As Integer
 
 
        sPath = "Pfad"
        For Each sFile In IO.Directory.GetFiles(sPath, "*.0tx", _
          IO.SearchOption.AllDirectories)
            Try
                For Each line In IO.File.ReadLines(sFile)
                    If line.Contains("To:") Then
                        index2 = line.IndexOf("<")
                        index3 = line.IndexOf(">", index2)
                        Empfaenger = line.Substring(index2 + 1, index3 - index2 _
                          - 1)
                        Dim eins As Stringd
                        eins = vbCrLf & vbCrLf & vbCrLf & vbTab & sFile & _
                          vbCrLf & Empfaenger
                        My.Computer.FileSystem.WriteAllText( _
                        "C:\Users\Anwender\Desktop\Testlesen.txt", eins, True)
                        Debug.Print(vbCrLf & sPath & vbTab & sFile)
 
                    End If
 
                Next
            Catch ex As Exception
            End Try
 
        Next
 
 
 
    End Sub

Public Sub FindFiles()
 
   Dim outfiles As New List(Of String)
 
   For Each file As String In IO.Directory.EnumerateFiles("....", "....")
 
      'Dateiinhalt lesen (Zeilen)
      Dim lines() As String = IO.File.ReadAllLines(file)
 
      Dim names As New Dictionary(Of String, Integer)
      Dim tox As Boolean = False
      Dim st, en As Integer, name As String
 
      'Datei-inhalt durchsuchen
      For i As Integer = 0 To lines.Length - 1
         'Anschriftenblock startet?
         If lines(i).StartsWith("To: ") Then tox = True
 
         If tox Then
            st = lines(i).IndexOf("<")
            If st >= 0 Then
               en = lines(i).IndexOf(">", st)
               If en >= 0 Then
                  'Empfänger-Name gefunden / registrieren
                  name = lines(i).Substring(st + 1, en - st - 1)
 
                  If names.ContainsKey(name) Then
                     names(name) = names(name) + 1
                  Else
                     names.Add(name, 1)
                  End If
               End If
            End If
         End If
      Next i
 
      If names.Count > 25 Then outfiles.Add(file)
   Next file
 
   If outfiles.Count > 0 Then
      IO.File.WriteAllLines _
         ("....", outfiles.ToArray)
   End If
 
End Sub