Satır sonuna otomatik <br> ve boşluk koyma.Replace yardım

Sayfaya eklenen her satırın sonuna bir boşluk ve <br /> koymak istiyorum

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

gibi bir fonksiyon uyguladım. Br çalışıyor fakat boşluğu koymuyor.

Nasıl çalışabilir ve ya başka bir yöntem bilen varsa yardımcı olursa sevinirim.

şöyle denedinmi
data = data & "&nbsp;<br />"

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

olarak ya da

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

olmadı ikisinide aynı anda denermisin.