Ho provato anche così ma, non funziona

Replace(VbCrLf, "<br>")