Longitud del mensaje del foro

[Halcon_2003]

Tengo un problemilla con la longitud de los mensajes de mi foro, para poderlos leer hay que desplazarse con la barra inferior del navegador, no se si el error esta en esta funcion:

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

Si el error esta alli porfa indíquenmen como solucionarlo.
Gracias