CSV Datei per Batch bearbeiten, CR, dazu Exponentialformat in Datenzeile und leere Daten zwischen Trennzeichen also ein -for- Problem

Datei = "D:\Lemuth\vbs\136032_1_2592013.csv"  
Delim = ";" 'Feldtrennzeichen  
Dateineu = "D:\Lemuth\vbs\136032_1_2592013_test.csv"  
Dateitemp = "D:\Lemuth\vbs\136032_1_2592013_tmp.csv"  

Set fso = CreateObject("Scripting.FileSystemObject")  
' Lese Quelle ein  
sText = fso.OpenTextFile(Datei).ReadAll
' ersetze alle CrLf durch Cr  
sText = Replace(sText, vbCrLf, vbCr)
' Ersetze alle Cr durch vbCrLf  
sText = Replace(sText, vbCr, vbCrLf)
' schreibe Daten in temporäre Datei  
fso.CreateTextFile(Dateitemp).Write sText
'Gesamten Dateiinhalt einlesen und zeilenweise aufgeteilt im Array T() ablegen  
T = Split(fso.OpenTextFile(Dateitemp).ReadAll, vbCrLF)
Neu = "" 'Variable für berarbeiteten Dateiinhalt vorbereiten  
'Zähle die Zeilen  
zeilenzaehler = 0 
'In einer Schleife alle Zeilen durchgehen  
For Each Z In T
	'Überspringe die ersten zwei Zeilen  
	if zeilenzaehler > 1 then 
		'Zeile anhand des Trennzeichens aufteilen und im Array S() ablegen  
		S = Split(Z, Delim)
		'Variable für Ausgabezeile löschen ...  
		Aus = ""  
		'Wenn zeile leer dann überspringen  
		If Z = "" Then   
			Else
			'gehe alle durch ; getrennten Felder  
			For i = 0 To 16
				'msgbox(S(i))  
				Austmp = ""  
				' wenn Zaehler = 0 dann schreibe Tag  
				If i = 0 then
					Austemp = S(i) & "-"  
				end if
				' wenn Zaehler = 1 dann schreibe Monat-  
				If i = 1 then
					Austemp = Austemp & S(i)& "-"  
				end if
				' wenn Zaehler = 2 dann schreibe Jahr- und in Aus(gabe)  
				If i = 2 then
					Austemp = Austemp & S(i)
					Aus = Austemp
				end if
				' wenn Zaehler größer 3 dann schreibe normal weiter  
				If i > 2 then
					'MSGbox([i])  
					Aus = Aus & Delim & S(i)
				end if
				'komische Zahl in echte Zahl wandeln  
				If i = 14 then
					'msgbox(S(i))  
				end if
				'schreibe noch ein Feldtrenner dahinter  
				If i = 16 then
					Aus = Aus & Delim
				end if
			Next
		end if
		'Fertige Ausgabezeile dem neuen Dateiinhalt nach einer Zeilenschaltung hinzufügen  
		Neu = Neu & vbCrLf & Aus
	end if
'zähle die Zeilen und nun eine Zeile weiter  
zeilenzaehler = zeilenzaehler+1
Next
'Neuen Dateiinhalt in alte Datei schreiben (diese dazu neu erstellen)  
fso.CreateTextFile(Dateineu).Write Neu

25-9-2013;10:24:16:679;136032;13;;;;;;;;;;13;Auslauf der Maschine ist jetzt frei;
25-9-2013;10:24:18:967;136032;19;;757150250102;;;;;;581000;0.0;72;Austakten des Teils vom Bearbeitungsplatz;
25-9-2013;10:24:27:348;136032;11;;;;;;;;;;13;Teil ist jetzt am Einlauf;
25-9-2013;10:25:14:58;136032;1;;756800220102;;;;;;706000;0.0;;Eintakten des Teils;
25-9-2013;10:25:15:157;136032;12;;;;;;;;;;;Warte das Auslauf der Machine frei;
25-9-2013;10:34:48:49;136032;13;;;;;;;;;;572;Auslauf der Maschine ist jetzt frei;
25-9-2013;10:34:49:378;136032;19;;757150210302;;;;;;656000;0.0;629;Austakten des Teils vom Bearbeitungsplatz;
25-9-2013;10:34:55:681;136032;1;;756800180200;;;;;;596000;0.0;;Eintakten des Teils;
25-9-2013;10:35:42:521;136032;19;;756800230102;;;;;;681000;0.0;53;Austakten des Teils vom Bearbeitungsplatz;
25-9-2013;10:35:48:515;136032;1;;756800200102;;;;;;916000;0.0;;Eintakten des Teils;
25-9-2013;10:36:38:702;136032;12;;;;;;;;;;;Warte das Auslauf der Machine frei;
25-9-2013;10:37:16:442;136032;13;;;;;;;;;;37;Auslauf der Maschine ist jetzt frei;
25-9-2013;10:37:17:640;136032;19;;756800220102;;;;;;706000;0.0;95;Austakten des Teils vom Bearbeitungsplatz;
25-9-2013;10:37:23:894;136032;1;;756800260102;;;;;;701000;0.0;;Eintakten des Teils;
25-9-2013;10:38:13:831;136032;12;;;;;;;;;;;Warte das Auslauf der Machine frei;