> 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>