Option Explicit
Sub Start()
    Dim Zeilen As Collection
    Dim Dateiname As String
    'Dateinamen organisieren
    Dateiname = ErfrageDateinamen
    'Prüfen ob es einen Namen gibt
    If Dateiname = "" Then
        Exit Sub
    End If
    'Eine Kollektion der Zeilen holen
    Set Zeilen = LeseDateiUni(Dateiname)
    'geänderten Inhalt in Datei speichern
    SchreibeDatei Dateiname, Zeilen
    MsgBox "Fertig!!!", vbInformation
End Sub
Function ErfrageDateinamen() As String
    'Mit Datei-Öffnen-Dialog anzeigen
    With Application.FileDialog(msoFileDialogOpen)
        '...anzeigen
        If .Show Then
            'Ausgewählte Datei ermitteln und zurückgeben
            ErfrageDateinamen = .SelectedItems(1)
        End If
    End With
End Function
Function LeseDateiUni(Name As String) As Collection _
  '<----------------------------------- hier
    'Zugriff auf Dateinsystem mit Unicode
    Dim fso As New FileSystemObject ' 
    ' <----------------------------------------------------------hier
    Dim Text As Scripting.TextStream
    Dim Zeilen As New Collection
    Dim Zeile As String
    Dim i As Integer
    Set Text = fso.OpenTextFile(Name, , , TristateMixed)
    Do Until Text.AtEndOfStream
        'Hier gehts los
        Zeile = Text.ReadLine()
        If (Len(Trim(Zeile)) > 0) And Not (InStr(Zeile, _
          "Zeilediegelöschtwerden soll") > 0) Then
            ' Nächsten 6 zeilen überspringen
            If InStr(Zeile, "TEXT JOB") > 0 Then
                Zeile = Zeile & vbCrLf
                For i = 0 To 5
                    Text.SkipLine
                Next
            ' Eine Leerzeile davor und dannach einfügen
            ElseIf InStr(Zeile, "LIST OF PATCHES") > 0 Then
                Zeile = vbCrLf & Zeile & vbCrLf & vbCrLf
            ' Usw.
            Else
                Zeile = Zeile & vbCrLf
            End If
        End If
        Zeilen.Add Zeile
    Loop
    Text.Close
    Set LeseDateiUni = Zeilen
End Function
Function LeseDatei(Name As String) As Collection
    Dim Dateinummer As Integer
    Dim Temp As String
    'ein Objekt vom Typ Collection erzeugen
    Dim Zeilen As New Collection
    'Jede Zeile ist ein Objekt
    Dim Zeile As KlasseZeile
    'Dateinummer ermitteln
    Dateinummer = FreeFile
    'Datei zum Lesen öffnen
    Open Name For Input As Dateinummer
    Do Until EOF(Dateinummer)
        'eine Zeile lesen
        Line Input #Dateinummer, Temp
        'Zeile als Objekt erzeugen
        Set Zeile = New KlasseZeile
        'Text der Zeile zuweisen
        Zeile.Text = Temp
        'Zeile in die Collection aufnehmen
        Zeilen.Add Zeile
    Loop
 
    'Inhalt zurückgeben
    Set LeseDatei = Zeilen
    Close Dateinummer
End Function
Sub SchreibeDatei(ByVal Dateiname As String, Zeilen As Collection)
    Dim Zeile As TextStream
 
    Dim Dateinummer As Integer
    'Dateinamen für Ausgabe verändern
    Dateiname = ZielDateiname(Dateiname)
    'Freie Dateinummer ermitteln
    Dateinummer = FreeFile
    'Öffnen der Datei zum Schreiben
    Open Dateiname For Output As Dateinummer
    'in einer Schleife durch alle Zeilen
    For Each Zeile In Zeilen 
        'Prüfen, ob Zeile geschrieben werden muss
       If Len(Zeile) > 0 Then
       Print #Dateinummer, Zeile
End If
    Next
    Close Dateinummer
End Sub
Function ZielDateiname(Name As String) As String
    'Dateiname um ".modi" erweitern
    ZielDateiname = Name & ".modi"
 
 
End Function