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