Hello Sergey,
Thank you for directed me to the site were they have a lot of scripts, howerver something is wrong going with me whatevert I input into the field I get invalid input and frankly I am lost with it here is the full script

LPARAMETERS tcEmailAddr
LOCAL loRegExp
loRegExp = CreateObject("VBScript.RegExp")
loRegExp.IgnoreCase = .T.
loRegExp.Pattern = '^(([A-Za-z0-9]+_+)|([A-Za-z0-9]+\-+)|([A-Za-z0-9]+\.+)|([A-Za-z0-9]+\++))*[A-Za-z0-9]+@((\w+\-+)|(\w+\.))*\w{1,63}\.[a-zA-Z]{2,6}$'
RETURN loRegExp.Test("tcEmailAddr")

Can you help with this