pcEmail="''.phorum_html_encode('email@mail.ru').''"

oRE = CreateObject("VBScript.RegExp")
oRE.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"

? oRE.test(pcEmail)

PARAMETERS email as Character
RETURN IIF((!EMPTY(email) AND LEN(email)>5) AND ("@"$email AND "."$email) AND (AT(".", email)-AT("@", email)>1 ) AND (LEN(email)-AT("@", email)>2 AND LEN(email)-AT(".", email)>1), .T., .F.)