Reading a string with unwanted character..

[Maher]

What is the best solution to read a string text that contains any of the following characters using Instr and Select Case statments?

Possible characters to detect:
~ # $ % ^ & * ( ) [ ] ? > < !

For example, I tried using the following but it's not working and is lengthy:

<% dim email

email="This is a ~ test messgae!"

select Case email
Case InStr(email,"~")>0 Response.Redirect("/error.asp")
Case InStr(email,"!")>0 Response.Redirect("/error.asp")
end select

%>

[Thing]

A regular expression would be the most efficient.

Here's a good tutorial:
http://www.4guysfromrolla.com/webtech/090199-1.shtml