al enviar el texto contenido en un campo de texto de varias lineas de un formulario para guardarlo en una base de datos

al enviar el texto contenido en un campo de texto de varias lineas de un formulario para guardarlo en una base de datos como memo,
que debo hacer para que se me conserven los saltos de linea,
tengo puesta esta funcion para guardar bien el texo pero no me funciona, se me guarda el texto sin los saltos de linea.

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, " ", "&nbsp;")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function

solucionado
lo tenia mal situado el momento de utilizar la funcion

"Serindom" escribió en el mensaje

> al enviar el texto contenido en un campo de texto de varias lineas de un

> que debo hacer para que se me conserven los saltos de linea,
> tengo puesta esta funcion para guardar bien el texo pero no me funciona,

>
> Function AcomodarTXT(txt)
> txt = Replace (txt, "<", "&lt;")
> txt = Replace (txt, ">", "&gt;")
> txt = Replace (txt, vbCrLf, "<BR>")
> txt = Replace (txt, " ", "&nbsp;")
> txt = Replace (txt, "''", "'")
> acomodarTXT = txt
> End function
>
>
>
>