Auswertung eines txt-Dateiinhaltes mit Excel

Sub Anzahl_Verbuchte_ermitteln()
    'Ordner in dem die Dateien liegen  
    Const FOLDER = "C:\Beispiel"  

    'Variablen  
    Dim fso as object, regex as object, rngOut as Range, strContent as String, matches as Object, file as Object
  
    'Objekte initialisieren  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    Set regex = CreateObject("vbscript.regexp")  
    
    'Regular Expression Objekt-Eigenschaften festlegen  
    regex.Global = True: regex.IgnoreCase = False: regex.MultiLine = True
    'Regex Pattern zum suchen der Zeilen die mit MS beginnen festlegen  
    regex.Pattern = "^MS"  
    
    'Ausgabe erfolgt im aktuell aktiven Sheet  
    With ActiveSheet
        ' Überschriften setzen  
        .Range("A1:B1").Value = Array("Dateiname", "Anzahl")  
        .Range("A1:B1").Font.Bold = True  
        
        'nächste leere Anfangszelle in Spalte A ermitteln  
        Set rngOut = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        ' Für jede Datei im Ordner ...  
        For Each file In fso.GetFolder(FOLDER).Files
            ' Wenn Dateiname SUCCESS_<AKTUELLES DATUM> entspricht  
            If UCase(Left(file.Name, 16)) = "SUCCESS_" & Format(Date, "yyyymmdd") Then  
                strContent = ""  
                On Error Resume Next
                'Inhalt der Datei in Variable speichern  
                strContent = fso.OpenTextfile(file.Path, 1, False, -2).ReadAll()
                'Anzahl der Zeilen die mit 'MS' beginnen zählen  
                Set matches = regex.Execute(strContent)
                'Dateiname zusammen mit der Anzahl in das Sheet schreiben  
                rngOut.Resize(1, 2).Value = Array(file.Name, matches.Count)
                'Ausgabebereich eine Zeile nach unten verschieben  
                Set rngOut = rngOut.Offset(1, 0)
            End If
        Next
    End With
End Sub