haber, creo que no te entendí, quieres que en la base de datos cada vez que encuentres un enter (13) te lo detecte como etiqueta <br>?, o que.
De ser eso, has un replace en tu cadena donde, cada vez que encuentre (13) lo reemplace por un <br>
Código:
cadena.Replace(Chr(13),"<br>")
y así tendrás la etiqueta lista.