teilweise 2 zeilige und 1 zeilige .txt liste in 1 zeilige liste in Excel

hallo zusammen.
ich habe ein problem ich will eine liste in von .txt in excel um wandeln . das umwandeln stellt nicht das problem da. sondern das die .txt liste teilweise 2 zeilig ist aber ich sie im excel 1 zeilig brauche!!!!.
da ich kein plan von programmierung habe und ich schon stunden verbracht habe ein tool dafür zu finden.
kann mir evtl. hier jemand helfen??
dachte so an excel ein kleins VB skript sollte das problem lösen können oder?

00463020 Radiator-Kleinhubfuss,Schraube 90mm lg. ZC0
f.Plan-Adria und Schmals„ulerradiatoren

00463022 Radiator-Kleinhubfuss,Schraube 120mm lg. ZC0
f.Plan-Adria und Schmals„ulerradiatoren

00463024 Radiator-Kleinhubfuss,Schraube 150mm lg. ZC0
f.Plan-Adria und Schmals„ulerradiatoren

010010 Schalterdosen 55 mm 1055-02

010012 Schalterdosen 55 mm tief 1555-02 010

010015 Putzausgleichringe fr Schalterd. 12 mm 1155-61 010


mfg
einser

Const Quelle = "D:\Original.txt"  
Const Ziel = "D:\Bearbeitet.txt"  
Const Trennzeichen = ", "  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set f1 = fso.OpenTextFile(Quelle, 1)
Set f2 = fso.OpenTextFile(Ziel, 2, True)
Do While Not f1.AtEndOfStream
    zeile = f1.ReadLine
	Do
		If Not f1.AtEndOfStream Then
			zeile2 = Trim(f1.ReadLine)
		Else
			zeile2 = ""  
		End If
		If zeile2 <> "" Then zeile = zeile & Trennzeichen & zeile2  
    Loop Until zeile2 = ""  
	f2.WriteLine zeile
Loop
f1.Close
f2.Close