1、回车符是两个字符的组合,你把他们替换成空就可以了  
    Dim a As String
    a = text3.Text
    a = Replace(a,Chr(10) + Chr(13),"")
    text3.Text=a
2、 text3.text=replace(text3.text,vbcr,"")
 text3.text=replace(text3.text,vblf,tahoma; font-size:14px; line-height:24px"> 连续执行以上两句
实际应用中，我试了2种方法，第二种搞定。