Inhalt einer .txt (Zeilenweise) in Excel (Spaltenweise) importieren

Sub ImportReports()
    Dim rngCurrent As Range, arrContent as Variant
    'Dateipfad angeben  
    Const FILE = "C:\report.txt"  
    'Objekte  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    'Textdatei in Zeilen-Array laden  
    arrContent = Split(fso.OpentextFile(FILE, 1).ReadAll(), vbNewLine)
    
    With ActiveSheet
        'Überschriften setzen (kann weg gelassen werden wenn sie manuell erstellt werden)  
        With .Range("A1:D1")  
            .Value = Array("Computername", "Uhrzeit", "Datum", "Bemerkungen")  
            .Font.Bold = True
        End With
        
        'Erste leere Anfangszelle ermitteln  
        Set rngCurrent = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        'Array der importierten Zeilen durchlaufen und in neue Zeilen schreiben  
        For i = 0 To UBound(arrContent) - 1 Step 4
            rngCurrent.Resize(1, 4).Value = Array(arrContent(i), arrContent(i + 1), arrContent(i + 2), arrContent(i + 3))
            Set rngCurrent = rngCurrent.Offset(1, 0)
        Next
        
        'Spaltenformate anpassen --------  
        'Spalte A und D als Text formatieren  
        .Range("A:A,D:D").NumberFormat = "@"  
        'Spalte B Uhrzeitformat  
        .Range("B:B").NumberFormat = "hh:mm"  
        'Spalte C Datumsformat  
        .Range("C:C").NumberFormat = "dd.MM.yyyy"  
        
        'Spaltenbreiten anpassen  
        .Range("A:D").EntireColumn.AutoFit  
    End With
    Set fso = Nothing
End Sub