Hi Jim

ReadOnly:

ControlSource=(CHRTRAN(TRANSFORM(sourceValue,"@R (999) 999-9999 "+CHR(1)+"999"),CHR(1),'X'))

ReadWrite ( no grid ):
- uses fixed width font
- Set textBox trasparent
- InputMask = "(999) 999-9999 999"
- on init TextBox add back Label " X " to Parent
with TextBox backcolor

Fabio