Ezt próbáld ki:

.Pattern = "^([w-.]+)@(([[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.)|(([w-]+.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(]?)$"

Egyébként innen van:

http://msdn2.microsoft.com/en-us/library/01escwtf(VS.71).aspx