George, I just discovered another Foxtool function that makes this totally portable. "JUSTSTEM"

LOCAL lcField, lcTable
lcField = UPPER(JUSTEXT(This.ControlSource))
lcTable = UPPER(JUSTSTEM(This.ControlSource))
= AFIELDS(gaMyArray, lcTable) && Create the array
lnoffset = ASCAN(gaMyArray, lcfield)
IF lnoffset > 0
lnrow = ASUBSCRIPT(gaMyArray, lnoffset, 1)
IF gaMyArray[lnrow, 4] = 2
This.InputMask = "$$9,999.99"
ENDIF
ENDIF

However, for the life of me, I can't find "JUSTEXT" in the FOXTOOLS.HLP. Am I missing something?