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.