Problema con espressioni regolari

[Alethesnake]

If Not check_email(email) Then Response.Write("sbagliata!") Else Response.Write("OK!") End If