In order to validate an email address, use the following function;
Public Function IsValidEmailAddress(ByVal EmailAddress As String) As Boolean
Dim Expression As New System.Text.RegularExpressions.Regex("S+@S+.S+")
If EmailAddress = "" Then
Return True
Else
Return Expression.IsMatch(EmailAddress)
End If
End Function