Udlukkelse af specialtegn

Hejsa...

I henblik på et af mine gamle spørgsmål herinde
http://www.eksperten.dk/spm/758068

fik jeg denne funktion, til at tjekke om e-mail havde en korrekt syntax

Function Mailtegn(email)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.(dk|com|net|org|info|biz|name|us|" &_
"ac|ag|as|at|be|cc|ch|uk|fm|gs|io|it|jp|li|lt|lv|ms|nu|pl|ro|se|sh|tc|tf|tm|to|vg|de|fr|no)$"
mailtegn = regEx.Test(email)
Set regEx = Nothing
End Function

denne fungere ganske fino til at tjekke e-mails
men nu sidder jeg lige p.t. og arbejder med et loginscript
hvor jeg ikke vil have special tegn i brugernavn eller kode...
det skal sådan set kun være muligt at skrive a-å 0-9 samt - og _
så derfor har jeg forsøgt at rette lidt i denne funktion..

Function Brugertegn(bruger)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "^[a-z0-9\-\_]$"
brugertegn = regEx.Test(bruger)
Set regEx = Nothing
End Function

men når jeg endelig bruger denne funktion, melder den hele tiden false, ligemeget om jeg kun skriver aaaaaa

hvad har jeg gjort forkert i denne funktion