txt in Excle importieren und umordnen mit einem Makro

[tommy_gun]

Hallo, ich muss Daten aus einer txt in eine xls via Excel-Makro importieren
dazu hab ich folgendes Makro-Stückchen:

Sub Einlesen_Dat3()
' Einlesen der Datei-Daten (Anfangsbestand) und einfügen in die neue Excel-Arbeitsmappe
Const szSuch0 = "Tages-Datum:"  'suche Tages-Datum:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile(dlgLBS.txtDat3.Value, 1) ' Quelldatei öffnen
Set ws = ActiveWorkbook.Sheets(1) ' Zieldatei anlegen / überschreiben
i = 1

Do Until objSourceFile.AtEndOfStream ' Gesammtes TextDok durchgehen
szNextLine = objSourceFile.Readline ' Zeile aus Quelldatei einlesen

If InStr(szNextLine, szSuch0) = 0 Then
ws.Cells(i, 1).Value = szNextLine + 10  'Wert in Zelle schreiben
i = i + 1 'Zähler für nächste Zeile erhöhen ' Zeile in Zieldatei schreiben

End If
Loop
'ActiveWorkbook.Worksheets.Add
'With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & dlgLBS.txtDat3.Value, Destination:=Range("A1")) 'dlgLBS.txtDat3.Value = die Textdatei
'     .Name = "LQRV62K5"
'     .FieldNames = True
'     .RowNumbers = False
'     .FillAdjacentFormulas = False
'     .PreserveFormatting = True
'     .RefreshOnFileOpen = False
'     .RefreshStyle = xlInsertDeleteCells
'     .SavePassword = False
'     .SaveData = True
'     .AdjustColumnWidth = True
'     .RefreshPeriod = 0
'     .TextFilePromptOnRefresh = False
'     .TextFilePlatform = xlWindows
'     .TextFileStartRow = 7
'     .TextFileParseType = xlFixedWidth
'     .TextFileTextQualifier = xlTextQualifierDoubleQuote
'     .TextFileConsecutiveDelimiter = False
'     .TextFileTabDelimiter = True   'Tabs als Trennzeichen und Indikator für eine neue Spalte
'     .TextFileSemicolonDelimiter = False
'     .TextFileCommaDelimiter = False
'     .TextFileSpaceDelimiter = False
'     .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1) ' Einordnung in Spalten
'     .TextFileFixedColumnWidths = Array(28, 2, 10, 9, 8, 16, 16, 16, 18) 'Spaltenbreite in Zeichen
'     .Refresh BackgroundQuery:=False
'End With


ActiveSheet.Name = "Anfangsbestand " & dlgLBS.TextBox2.Value 'Anfangsbestand -Datum-
End Sub

Leider funktioniert gar nichts der ich bekomme es nichtmal hin, dass die Zeilen die überflüssig in der txt sind draußen bleiben...

als Anhang gebe ich nochmal die txt (alle Daten sind verändert)
und die xls, an der erkennbar ist, wie es sein soll... die xls musste ich zippen

mit freundlichem Gruß
und für jede Hilfe dankbar
tommy_gun