data = Replace (data ,vbCrLf," <br />")

olarak ya da

data = Replace (data ,chr(13),"&nbsp;<br />")

olmadı ikisinide aynı anda denermisin.