You're validating string literal "tcEmailAddr". Check original code.

RETURN loRegExp.Test(tcEmailAddr)

BTW, here's the pattern I'm using.

loRegExp.Pattern =  '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,9})'

>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