Function LoeschenVorVier (sKomplett as  string) as string
 
dim iStart as Integer
dim ix as Integer
 
   iStart=0
   for ix = 1 to 4
      istart=instr(iStart,sKomplett," "
   next
 
   LoeschenVorVier=right$(sKomplett,iStart+1,len(sKomplett-iStart)
end function