errore su funzione

[Gamma]

Questa funzione mi server per fare un'anteprima di un testo
ma ottengo il seguente errore :
Tipo non corrispondente: 'expr_reg.Replace'
in corrispondenza di Set expr_reg = CreateObject("VBScript.RegExp")
Mi aiutate?
Grazie
--------------------------------------------------------------
function preview_testo(STRINGA, INTERO, CARATTERE)
'STRINGA = il testo passato
'INTERO = il numero di caratteri della stringa da visualizzare
'CARATTERE = i/l carattere/i visualizzato/i al termine dell'anteprima
Set expr_reg = CreateObject("VBScript.RegExp")
expr_reg.Pattern="\<[^\>]*\>"
expr_reg.Global=true
expr_reg.IgnoreCase=true
STRINGA = expr_reg.Replace(STRINGA,"")
lunghezza_stringa = len(STRINGA)
if lunghezza_stringa < INTERO then
new_stringa = STRINGA
else
new_stringa = left(STRINGA,INTERO) & CARATTERE
end if
preview_testo = new_stringa
end function
--------------------------------------------------------------

[Sypher]

se fai una normale replace?
Replace(tuastringa,caratteredasostituire,nuovocara ttere)?

[Gamma]

Cosa intendi?