Versión Copiada del tfs

Validaciones.vb

@@ -0,0 +1,8 @@
+'Imports System.Text.RegularExpressions
+
+'Public Class Validaciones
+'    Public Shared Function EsEmail(ByVal email As String) As Boolean
+'        Static emailExpression As New Regex("^[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})$")
+'        Return emailExpression.IsMatch(email)
+'    End Function
+'End Class