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