La varibale cadena es todo el texto ;) .
Ah otra cosa, en esta zona
Código:
Cadena=Replace(Cadena,"[/url]","[/url] ")
Cadena=Replace(Cadena,chr(13)," "&chr(13)&" ")
En esa zona deben ir todos los replaces que utilices.
Esta probado y funcionando,
Saludos