Função quebra linha e parágrafos

Pessoal,

Bom dia! Estou usando uma função de quebra de linha e parágrafo que encontrei nos artigos daqui do site Imasters, mas não está funcionando conforme deveria. Alguem poderia dar uma dica? Segue a função abaixo:

<% Function FormatStr(String)on Error resume nextString = Replace(String, CHR(13), "")String = Replace(String, CHR(10) & CHR(10), "</P><P>   ")String = Replace(String, CHR(10), "<BR>   ")FormatStr = StringEnd Function %>

Para exibir o texto com quebras uso:

<%=Formatstr(resultado_news.Fields.Item("Mensagem").Value)%>

Agradeço desde já,