Errore in sub (Mismatch detected..)

[atreliu1]

Ciao,
Mi avvicino al mondo delle Sub..
Ne realizzo così una, per fare dei Replace sonsegutivi:

  testo=""
  For i=1 to Request.Form("box")
  Response.Write(i & testo )
  Response.Write(Trim(Request.Form(i&"_titolo"))) 
  testo=testo & sostituisci(Trim(Request.Form(i&"_titolo"))) 'Riga 182 
  testo=testo &"_"& sostituisci(Trim(Request.Form(i&"_desc1"))) 
  testo=testo &"_"& sostituisci(Trim(Request.Form(i&"_desc2"))) &"%"
  Next
  Sub sostituisci(stringa)'funzione per sostituire i caratteri che poi userò per creare campo
  stringa=Replace(stringa,"%","%")
  stringa=Replace(stringa,"_","_")
  Response.Write(stringa)
  End Sub

Quando vado a vedere l'output ottengo:

 1Prova_carattere
 Microsoft VBScript runtime error '800a000d'
 Type mismatch: 'sostituisci'
 /beta/adv/ordinatxt.asp, line 182

Praticamente mi da l'errore appena richiamo la funzione.
Però come si vede, il valore di 'stringa' cioè Trim(Request.Form(i&"_titolo")) esiste, ed è: "Prova_carattere"

Voi capite perchè ho questo errore??

Grazie