strText = Replace(strInput, vbCrLf, "<p></p>") or// strText = Replace(strInput, "\n", "<p></p>") Can't remember which one of those will work...one should ;-)