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