Dim yourstr,r,letter,result
yourstr="pro1gr3a6m"

Set r=new regexp
r.pattern="[a-z 0-9 A-Z]"
r.global=true
set s=r.execute(yourstr)

For each letter in s
result= letter.value&result
Next

print result