Replace 函数将CONTENT中所有的回车,也就是vbCrlf替换成换行标签<br>
CONTENT=Replace(CONTENT,vbCrlf,"<br>") ------ ------ 回车 换行标签
再次感谢griefforyou版主不厌其烦的解释