Email validation in VB.Net 2005

Email validation in VB.Net 2005
-------------------------------------------------------------------------------------------------

Imports System.Text.RegularExpressions

Public Sub email_val()
If Txtemail.Text <> "" Then
Dim rex As Match = Regex.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})$", RegexOptions.IgnoreCase)
If rex.Success = False Then
MessageBox.Show("Please Enter a valid Email-Address ", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Txtemail.Focus()
Exit Sub
End If
End If
End Sub
--------------------------------------------------------------------------------------------------