Private Function Sort(ByVal vUnsort As String) As String
 
  Dim arSplitter
  Dim aSplitter
 
  arSplitter = Array(" ", ".", ":", ",", ";", "?", "!", "-")
 
  Sort = vUnsort
 
  For Each aSplitter In arSplitter
    Sort = Replace$(Sort, CStr(aSplitter), vbNewLine)
  Next aSplitter
 
End Function

Gruß
Dirk

--
?Get it right the first time