EXCEL Mehrzeiler aus Textdatei als Mehrzeiler in eine einzlene Zeile importieren

Ein = "D:\MitUmbruch.txt"  
Aus = "D:\OhneUmbruch.txt"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set rE = New RegExp
rE.Global = True
rE.Pattern = "\r\n\t\t"  

fso.CreateTextFile(Aus).Write rE.Replace(fso.OpenTextFile(Ein).ReadAll, " ")  

Set rE = CreateObject("VBScript.RegExp")

rE.Pattern = "\r\n\s{1,}"  

rE.Pattern = "\r\n\s+"

rE.Pattern = "\r\s{2,}"

Sub import()
    Dim sFName, iFNum As Integer, sText As String, i As Long, aLines, _
        oWb As Excel.Workbook, oWs As Excel.Worksheet
    sFName = Application.GetOpenFilename( _
        Title:="Wähle eine Datei zum Importieren aus ...", _  
        FileFilter:="Text Dateien *.txt (*.txt),", _  
        MultiSelect:=False)
    If sFName = False Then Exit Sub
    iFNum = FreeFile()
    Open sFName For Input As iFNum
    sText = Input(LOF(iFNum), iFNum)
    Close iFNum
    Set oWb = Application.Workbooks.Add(xlWBATWorksheet)
    Set oWs = oWb.Worksheets(1)
    oWs.Name = _
        CreateObject("Scripting.FileSystemObject").GetFileName(sFName)  
    With CreateObject("VBScript.RegExp")  
        .Global = True
        .Pattern = "\r\n\s+"  
        sText = .Replace(sText, vbLf)
    End With
    aLines = Split(sText, vbCrLf)
    For i = 0 To UBound(aLines)
        oWs.Range(Cells(i + 1, 1), Cells(i + 1, 3)) = Split(aLines(i), vbTab)
    Next
End Sub

Option Explicit

Private Const DlgT = "Wähle eine Datei zum Importieren aus ..."  
Private Const DlgF = "Text Dateien (*.txt), *.txt"  

Sub TextImport()
    Dim sFileName As Variant, Text As Variant, i As Long

    sFileName = Application.GetOpenFilename(Title:=DlgT, FileFilter:=DlgF, MultiSelect:=False)
    
    If sFileName = False Then Exit Sub
    
    Text = CreateObject("Scripting.FileSystemObject").OpenTextFile(sFileName).ReadAll  
    
    With CreateObject("VBScript.RegExp")  
        .Global = True
        .Pattern = "\r\n\s+"  
         Text = Split(.Replace(Text, " "), vbCrLf)  
    End With
    
    With Sheets(1)
       .Cells.ClearContents
        For i = 0 To UBound(Text)
            If Text(i) <> "" Then  
                Cells(i + 1, "A").Resize(1, 3) = Split(Text(i), vbTab)  
            End If
        Next
       .Columns("A:C").AutoFit  
    End With
End Sub

    With oWs.UsedRange
        .Cells.VerticalAlignment = xlTop
        .ColumnWidth = 200
        .RowHeight = 300
        .Columns.AutoFit
        .Rows.AutoFit
    End With