Dateipfade aus Datei auslesen mit VB.net

Const Liste As String = "D:\Dateipfade.txt"  
Const Ziel As String = "D:\TEMP"  

Dim FS As Object = My.Computer.FileSystem
Dim Datei As String
Dim Dateien As String = FS.ReadAllText(Liste)

Dateien = Replace(Dateien, ",&", ",") 'überflüssige "&" außerhalb eines Dateipfades entfernen  
Dim P As Long = InStrRev(Dateien, ".lib", , CompareMethod.Text))  
If P > Len(Dateien) - 20 Then
    'hinter ".lib" abschneiden, falls nahe dem Dateiende (innerhalb der letzten 20 Zeichen)  
    Dateien = Left(Dateien, P + Len(".lib") - 1)  
End If

If Not FS.DirectoryExists(Ziel) Then 'Zielordner vorhanden?  
    MsgBox( _
        "Der Ordner" & vbCrLf & vbCrLf & _  
        Ziel & _
        vbCrLf & vbCrLf & "ist nicht verfügbar!", _  
        MsgBoxStyle.Critical, _
        "Ordner nicht gefunden ...")  
Else
    For Each Datei In Split(Dateien, ",")  
        If FS.FileExists(Datei) Then
            FS.CopyFile(Datei, Ziel & "\" & FS.GetName(Datei), True)  
        Else
            MsgBox( _
                "Die Datei" & vbCrLf & vbCrLf & _  
                Datei & _
                vbCrLf & vbCrLf & "konnte nicht gefunden werden!", _  
                MsgBoxStyle.Critical, _
                "Datei nicht gefunden ...")  
        End If
    Next
End If