Problema in Subroutine

[Federix]

Ho questa subroutine:

sub controlla(testo)
testok = replace(testok,VbCrLf, "
")
end sub

e nel codice questo script per creare una notizia RSS in XML:

xml = xml & "<description><![CDATA[" & controlla(rs("testo")) & "]]></description>"

In pratica io devo leggere il valore di rs("testo") e mettere un
ogni volta che trova la proprietà VbCrLf.
Il problema nasce dal fatto che tutta la pagina mi restituisce un errore del tipo:
Errore di run-time di Microsoft VBScript error '800a000d'

Tipo non corrispondente: 'controlla'

/arezzoweb.it/notizie/rss_view.asp, line 50
Come posso fare per aggirare ciò???

[albis]

sostituisci la sub con una function
function controlla(testo)
dim testok
testok = replace(testo,VbCrLf, "
")
controlla = testok
end function