Hola que tal estoy tratando de validar una direccion de correo electrónico pero para lotus, el formato correcto debe ser: letras espacio letra espacio letras, segun yo mi expresion regular de mi funcion esta correcta es decir se apega a esto pero no....sigue mandandome al metodo de enviar aunque escriba 2 espacios...alguine podria traducirme mi expresion regular para decirme si esta bien??
Código:
Function Validalotus(ByVal email As String) As Boolean
Dim emailRegex As _
New System.Text.RegularExpressions.Regex( _
"^[a-z]*\s{1}[a-z]\s{1}[a-z]*")
Dim emailMatch As _
System.Text.RegularExpressions.Match = emailRegex.Match(email)
Return emailMatch.Success
End Function