* interactivechange dodefault() cMask="99-999-9-99-999-999-9" && can't remember what it really was cTxt=this.text nLen=len(cTxt) nMaskLen=nLen cTempMask=left(cMask,nLen) do while occurs("9", cTempMask)<nLen nMaskLen=nMaskLen+1c cTempMask=left(cMask,nMaskLen) enddo this.function="R" this.inputmask=cTempMaskHaven't tried this, so this is under the assumption that this.text doesn't include the dashes if .function="R"; if it does, then cTxt=chrtran(this.text, "-", "").