cyberpata
revisa la biblioteca
http://www.forosdelweb.com/f15/biblioteca-clases-funciones-sub-rutinas-238829/ 
amigo sqa212
creo que tu funcion tiene un error, creo que deberia ser asi
Function Acomodar(txt)
txt = Replace (txt, vbCrLf, "<BR>")
acomodar = txt
End function
