Caratteri in una stringa

[*rabby*]

Ciao ragazzi.

Ho questo problema.
Devo eliminare in un sol colpo tutti i caratteri che non siano lettere o numeri da una stringa, magari sostituendoli con uno spazio.
Qualcuno sa darmi una dritta?

Grazie anticipatamente

[ZeroCool981]

function sanitize(text)

   'parte per prevenire il cross-site scripting
   dim sanimatch, testofin
   for sanimatch=len(text) to 1 step -1
      if not instr(1,"1234567890!@-=+:,./abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ;ÀÁÈÉÌÍÒÓÙÚàáèéìíòóùú©®°ªº'()?* " & chr(09) & chr(10) & chr(13),mid(text,sanimatch,1),0) > 0 then
	 testofin="?" & testofin
      else
	 testofin=mid(text,sanimatch,1) & testofin
      end if
   next

   'parte per rimuovere gli spazi multipli
   do while instr(1,testofin,"  ")
      testofin=replace(testofin,"  "," ")
   loop

   sanitize=testofin
end function

dove vedi
"1234567890!@-=+:,./abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX YZ;ÀÁÈÉÌÍÒÓÙÚàáèéìíòóùú©®°ªº'()?*"

tra le virgolette sono i caratteri che accetti.

[*rabby*]

Grazie mille ZeroCool981,
caffè pagato....