>>>lcNewString='' >>>#define crlf chr(13)+chr(10) >>>For lnX = 1 to memlines(lcString) >>> lcNewString =Upper(Left(mline(lcString,lnX),1)) + substr(mline(lcString,lnX),2) + crlf >>>Endfor >>>lcNewString = left(lcNewString, len(lcNewString-2))