Validating Email Controls

Imports System.Text.RegularExpressions

If txtEmail.Text<>"" Then

    Dim reg as Match=RegularEx.Match(Trim(txtEmail.Text),"^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,3})$",RegularExOptions.IgnoreCase)

If reg.Success=False Then
       
        MessageBox.Show("Please Enter A Valid Email    Address",Information",MessageBoxButtons.OK,MessageBoxIcon.Information)

         txtEmail.Focus()
Exit Function

End If
End If