LPARAMETERS tcnarr * ssn pattern lcExpression ="(\b[0-9]{3}-[0-9]{4)\b)" loRegExp = CreateObject("VBScript.RegExp") loRegExp.IgnoreCase = .T. loRegExp.Pattern = LCexpression RETURN loRegExp.Test(tcnarr)