Rudy > > sText = Replace(sText, vbCrLf & vbCrLf, "</p>" & vbCrLf & > "<p>") sText > > = Replace(sText, vbCrLf, "<br />" & vbCrLf) > > those two lines will end up generating this for two breaks in a row -- > > </p><br /> > <p> You're right. All CRLFs should be inserted at the end. My bad... Regards Chris Marsh