Caratteri da eliminare in una stringa

[marviv]

Ciao a tutti.
Big problem!
Devo individuare in una stringa i caratteri che NON appartengono ad un array ed eliminarli.

Siccome prima avevo invece il contrario e cioè dovevo eliminare i caratteri che appartenevano ad un array, il mio algoritmo era il seguente:

CharsNotPermitted = Array ("#32;", "#33;", "#34;", "#35;" )

stringaTemp=cStr(server.HTMLEncode(stringa))
for i = 0 to Ubound(CharsNotPermitted)
if instr(1,Ucase(stringaTemp),Ucase(CharsNotPermitted (i))) <> 0 then
inizio=instr(1,Ucase(stringaTemp),Ucase(CharsNotPe rmitted(i)))
lunghezza=len(CharsNotPermitted(i))
stringaDaEliminare = Mid(stringaTemp , inizio, lunghezza)
stringaTemp = Replace(stringaTemp, stringaDaEliminare, "")
i=i-1
end if
next
stringa=HTMLDecode(stringaTemp)

come posso modificarlo in modo da conservare nella stringa i caratteri presenti nell'array e eliminare tutti gli altri ?

Grazie per qualunque consiglio (non ditemi però di andarmi ad impiccare...)

[marviv]

Risolto! Di sera non si dovrebbe lavorare...
Il ciclo for è il seguente:

for i = 36 to 255
if instr(1,Ucase(stringaTemp),Ucase(cStr("#"&cStr(i)& ";"))) <> 0 then
inizio=instr(1,Ucase(stringaTemp),Ucase(cStr("#"&c Str(i)&";")))
lunghezza=len(cStr("#"&cStr(i)&";"))
stringaDaEliminare = Mid(stringaTemp , inizio, lunghezza)
stringaTemp = Replace(stringaTemp, stringaDaEliminare, "")
i=i-1
end if
next