Validazione di indirizzo email con VB.Net e Regular Expression

Imports System.Text.RegularExpressions

Dim ValidateMail As String = "^([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-z]{2,4}|[0-9]{1,3})(\]?)$"

Dim EmailAddress As String = "$mionome@dominio.com$"

If Regex.IsMatch(EmailAddress, ValidateMail) Then
...
Else
...
End If