换行容易。加这句:str1=replace(str1,vbcrlf,"<br>")
其中把str1为你要替换的内容就可以了