Validere Email adresse med RegExp

Hej

Jeg har fundet dette på nettet.

Men lige meget hvad jeg angiver som email (Også min egen kenneth@dalbjerg.nu) så siger den at den er invalid?

Function CheckEmail(Email)
    Dim objRegExp
    Set objRegExp = New RegExp
    objRegExp.Pattern = "[A-Za-z0-9\_\-]+\@[A-Za-z0-9\_\-]+.*\.\w{2,3}"
    objRegExp.IgnoreCase = True
    IsEmail = objRegExp.Test(Email)
    Set objRegExp = Nothing
End Function

Nogen som kan finde en fejl i udtrykket?