If you need an UDF solution, I'm using this one since some times :

First param is the text to change
second param is the separator (can be anything, from 1 to x...x characters)
third param (optional) is the string used to replace separators

code:

Function TextReplace($sText,$sSeparator, optional $sNewSeparator)
Dim $Stock
dim $Element
for each $Element in Split($sText,$sSeparator)
If len($Stock)>0
$Stock=$Stock+""+$sNewSeparator+$Element
else
$Stock=$Element
endif
next
$TextReplace=$Stock
endfunction

[ 19 February 2002: Message edited by: Alex.H ]

_________________________
? getobject(Kixtart.org.Signature)