VisualBasic Excel Entwicklertool File bereich Auslesen und Formatieren

Sub test()
    Dim fso, fsoFile, fsoText
    Dim x As Long
    Dim i As Long, j As Long, k As Long
    Const fsoForReading = 1
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fsoFile = fso.OpenTextFile("Bla_bla.txt", fsoForReading)
    fsoText = Split(fsoFile.readall, vbCrLf)
    fsoFile.Close

    For i = 0 To UBound(fsoText) - 1 ' ohne letzte Zeile
        If InStr(fsoText(i), "Hallo") Then x = i: Exit For
    Next i
    
   ' k = 1
   ' For j = x To x + 20
    '    Cells(k, 1).Value = fsoText(j)
     '   k = k + 1
    'Next j
    
     Cells.ClearContents

   For j = x To x + 20
        b = b + 1
        asd = Split(fsoText(j), vbTab)
        i = UBound(asd)
        If i = 0 Then GoTo start
        
            For a = 1 To i
            Set Cells(b, a) = Cells(b, a)
            Next a
start:
    Next j    
End Sub

zeile = 1
for j = x to x + 20
	helper = Split(fsoText(j), vbTab)
	if UBound(helper) > 0 then
		for k = 0 to UBound(helper)
			cells(zeile, k + 1).value = helper(k)
		next
		zeile = zeile + 1
	end if
next

  Dim fso, fsoFile, fsoText3.    Dim x As Long
  Dim i As Long, j As Long, k As Long
  Const fsoForReading = 1

   path = Application.GetOpenFilename("Textdateien (*.txt),*.txt,Alle Dateien,*.*")
   If path= False Then Exit Sub

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fsoFile = fso.OpenTextFile("path", fsoForReading)
  fsoText = Split(fsoFile.readall, vbCrLf)
  fsoFile.Close

cells(zeile, k + 1).value = helper(k)