25/10/2004, 06:47
|
 | | | Fecha de Ingreso: agosto-2002 Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 22 años, 8 meses Puntos: 16 | |
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  |