doppelte Leerstellen innerhalb einem string entfernen VBS

part02= abc                               xyz;
part03= abc               xyz;
part04= abc                       xyz;

' VB Script Document  
Option explicit
'  
DIM part02,part03,part04
'  
Const TZ =";"                       'Trennzeichen  
'  
'  
part02="abc                               xyz"  
part03= "abc               xyz"  
part04= "abc                       xyz"  
'  
'für  Funktion Ersetze  
dim SuchString, Suchmuster, ErsatzMuster
'  
  Suchmuster   = chr(32)&chr(32)  	' zwei Leerstellen  
  ErsatzMuster = chr(32)		' eine Leerstellen  
'  
Dim i
i=0
Do until i=50
  part02= Ersetze(part02,Suchmuster, ErsatzMuster)
  part03= Ersetze(part03,Suchmuster, ErsatzMuster)
  part04= Ersetze(part04,Suchmuster, ErsatzMuster)
  i=i+1
loop
'  
Wscript.echo part02&TZ&part03&TZ& part04&TZ
'  
'  
Function Ersetze(SuchString,Suchmuster, ErsatzMuster)
'  
  Dim regAusdr                                   ' Variablen erstellen.  
  Set regAusdr = New RegExp            ' Erstellt einen regulären Ausdruck.  
  regAusdr.Pattern = Suchmuster       ' Legt das Suchmuster fest.  
  regAusdr.IgnoreCase = True            ' Ignoriert die Groß-/Kleinschreibung.  
  regAusdr.Global = True                     ' Legt globales Anwenden fest.  
'  
  ' Führe nun die Ersetzung durch und weise es als Funktionswert zu.  
'  
  Ersetze=regAusdr.Replace(SuchString,ErsatzMuster)
'  
End Function