Validation e-mail

Ajouter la lecture des signes -,%.*,#,+,-(moins)
dans le code suivants avant les 2 derniers points de la chaîne sans
acepter les espaces..

VbScript
objRegEx.Pattern = "^(\w+(?:\w+\.)*)@((?:\w+\.)*\w[\w-]{0,66})\.([a-z]{2,6}(?:\.[a-z]{3})?)$"