Yes Alan,

The code did not work on the string sent by you. I have made some modifications in the code. It works fine, but there is one more problem with it. When a string has more than one consecutive dots(.), it fails.

Try, the code using the following string -
abc.def..ghi...

If you find some solution, please let me know.

Regards,
Samir

*****Code snippet
Local lcNewText

lcNewText = ""
tcText = Ltrim(tcText)
cTmp = ""
iCnt = 0
For iLen = 1 To Getwordcount(tcText,'.')
lcNewText = LOWER(Substr(tcText,iCnt+1,IIF(Atc('.',Right(tcText,Len(tcText)-iCnt))=0,Len(tcText)-iCnt,Atc('.',Right(tcText,Len(tcText)-iCnt)))))

iCnt = iCnt + LEN(lcNewText)

lcNewText = ALLTRIM(lcNewText)

lcNewText = UPPER(Left(lcNewText,1)) + Substr(lcNewText,2)

cTmp = cTmp + lcNewText + SPACE(1)
Endfor
lcNewText = cTmp
Return Rtrim(lcNewText)

**********