When I run your code, I get an error - unknown com status. Do you think my pc has vbscript disabled?

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)

John