CR und LF mit Lotus Script aus einer Zeichenkette entfernen

Hier eine kleine Funktion in Lotus Script um aus einer Zeichenkette den Wagenrücklauf (CR, CARRIEGERETURN) und den Zeilenvorschub (LF, LINEFEED) zu entfernen.

Function RemoveCRLF( Byval theString As String ) As String
   Dim v As Variant

   v = Split( theString, Chr(13 ) )

   theString = ""

   Forall s In v

      theString= theString & s

   End Forall
   v = Split( theString, Chr(10) )

   theString = ""   Forall s In v

      theString= theString & s

   End Forall

   RemoveCRLF = theString

End Function