dim Stxt as string
dim FSO as new filesystemobject
dim FTX as filesystemobjext.textstream ' oder so ähnlich 
dim le as long
 
set ftx= fso.getfile(<pfad>)
stxt=ftx.readall
do 
   le=len(stxt)
   stxt=replace(stxt,"  "," ")
   ' eventuell auch
   ' stxt=replace(stxt ," " & vbcrlf,vbrclf)
   ' stxt=replace(stxt , vbcrlf & " ",vbrclf)
loop while le>len(stxt)