convalida email (pattern)

[agenti]

Function IsMail(sEmail)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-z._-]+\@[a-z._-]+\.[a-z]{2,4}$"
objRegExp.IgnoreCase = True
IsMail = objRegExp.Test(sEmail)
End Function


Ho testato per caso questo pattern che uso spesso...

e mi sono acocrto che non accetta email del tipo:

email5@test.it
em6il@test.it

come posso rimediare ?
Grazie.