如何把TEXT里输入的换行替换成<BR>

请指教！ --------------------编程问答--------------------

Private Sub Command1_Click()

Text1 = Replace(Text1, vbCrLf, "<BR>")

End Sub

--------------------编程问答-------------------- replace(text1,chr(13),"<BR>") --------------------编程问答-------------------- replace(text1,chr(13),"<BR>") --------------------编程问答-------------------- Private Sub Command1_Click()
Text1 = Replace(Text1, vbCrLf, "<BR>")
End Sub

补充：VB ,  基础类