Erro: Microsoft VBScript... '800a000d' Type mismatch: 'For

Olá pessoal o seguinte erro esta aparecendo:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'FormatStr'

/site/empreendimentos2.asp, line 31

na linha 31 tem uma chamada para uma função de nome FormatStr que

trata o texto formantando-o, a função é essa:

function FormatStr(String)

 on Error resume next

 String = Replace(String,CHR(10), "<BR>")

 FormatStr = String

end function

e a chamada onde esta dando erro è aqui:

vinfo = FormatStr(rs("info"))

Me ajudem pessoal