mehrere Leerzeichen mit einem Semikolon ersetzen

'--------- Variablen ------------  
Const strDATEI="Datei.txt"  
Const ForReading=1, ForWriting=2, ForAppending=8
Dim objFSO
Dim strPfad
Dim strDateiname
Dim objTDatei
Dim strAusgabe
Dim strZeile
Dim strTemp
Dim arrDaten
Dim intPos
Dim objWB 
Dim appEx
Dim objTab
Dim intZeile
Dim intSpalte
Dim strExcelDatei
'-------- Anweisungen -----------  
Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")  
strPfad=objFSO.GetParentFolderName(WScript.Scriptfullname)
strDateiname=objFSO.BuildPath(strPfad,strDATEI) 

If objFSO.FileExists(strDateiname) Then
	'Excel starten und neue Arbeitsmappe erzeugen  
	Set appEx=WScript.CreateObject("Excel.Application")  
	appEx.Visible=True
	Set objWB=appEx.Workbooks.Add()
	Set objTab=objWB.Worksheets(1)
	intZeile=1
	intSpalte=1
	'Datei öffnen  
	Set objTDatei=objFSO.OpenTextFile(strDateiname,ForReading)
	'Datei lesen, Zeile für Zeile  
	Do 	While objTDatei.AtEndofStream=False
		strZeile = objTDatei.ReadLine()
		strZeile=LeerRed(strZeile)
		'Aufsplitten in Array  
		arrDaten=Split(strZeile," ")  
		'Für jedes Array-Element Daten in  
		'Tabelle schreiben  
		For intSpalte=1 To UBound(arrDaten)+1
			objTab.Cells(intZeile,intSpalte).value=arrDaten(intSpalte-1)
		Next
		intZeile=intZeile+1
	Loop  
	objTDatei.Close
	'Excel beenden und Datei schließen  
	strExcelDatei=InputBox("geben Sie den Dateinamen ein, unter dem der Export gespeichert werden soll:","Export Tankdaten Zeven","*.xls")  
	objWB.SaveAs objFSO.BuildPath(strPfad,strExcelDatei)
	objWB.Close
	appEx.Quit 
Else
	MsgBox "Datei nicht vorhanden"  
End If
Set appEx=Nothing
Set objWB=Nothing
Set objFSO=Nothing
'--- Prozeduren u. Funktionen ---  

'Funktion zum Entfernen der äußert überflüssigen Leerzeichen  
Public Function LeerRed(Zeichen)
    Dim Pos 
    If IsNull(Zeichen) Then Exit Function
    Zeichen = Trim(Zeichen)
    Pos = InStr(1, Zeichen, "  ") ' 2 Leerzeichen !!  
    While Pos <> 0
        Zeichen = Left(Zeichen, Pos) & Mid(Zeichen, Pos + 2)
        Pos = InStr(Pos, Zeichen, "  ")  
    Wend
    LeerRed = Zeichen
End Function