satz$ = "  Dies ist   ein komischer    Satz mit vielen Leerzeichen  .     "

   Print "*" + satz$ + "*"
   For i = 0 To 10
      Print "nowrt$("+i+") = " + Chr$(34) + nwort$(satz$, i) +Chr$(34)
   Next
   WaitKey()
   End


;satz$ ist der zu untersuchende String
;wort gibt an, das wievielte Wort gesucht werden soll
Function nwort$(satz$, wort, trenn$ = " ")
If wort < 1 Then Return ""
satz$ = satz$ + trenn$
w = 0
pos = 1
   While w < wort And pos > 0
      While Mid$(satz$, pos, 1) = trenn$      
      pos = pos + 1
      Wend      
      x = pos
      y = Instr(satz$, trenn$, pos)
      pos = y
      w = w + 1
   Wend
Return Mid$(satz$, x, y - x)
End Function

satz$ = "Dies ist   ein komischer    Satz mit vielen Leerzeichen  .     "

While Left(satz,1) = " "
satz = Mid(satz,2)
Wend

While Right(satz,1) = " "
satz = Left(satz,Len(satz)-1)
Wend

While Replace(satz,"  "," ") <> satz Or Replace(satz,"   "," ") <> satz Or Replace(satz," .",".") <> satz Or Replace(satz," ,",",") <> satz Or Replace(satz," !","!") <> satz Or Replace(satz," ?","?") <> satz
satz = Replace(satz,"  "," ")
satz = Replace(satz,"   "," ")
satz = Replace(satz," .",".")
satz = Replace(satz," ,",",")
satz = Replace(satz," !","!")
satz = Replace(satz," ?","?")
Wend

Print satz
WaitKey
End