How dare you to post not fully tested code! People should be able to use it right away not waste there time on adapting and testing it.

>
>
>Put this in KeyPress Event of the TextBox:
>
>

>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>IF nKeyCode == 46 && [.]
>   LOCAL nStart
>   nStart = this.SelStart 
>   NODEFAULT 
>   DO CASE
>      CASE nStart < 5    
>           this.Value     = PADL(ALLTRIM(LEFT(this.Value,3)),3)+SUBSTR(this.Value,4)
>           this.SelStart  = 4
>           this.SelLength = 3
>
>      CASE nStart < 9    
>           this.Value     = LEFT(this.Value,4)+PADL(ALLTRIM(SUBSTR(this.Value,5,3)),3)+SUBSTR(this.Value,8)
>           this.SelStart  = 8
>           this.SelLength = 3
>
>      CASE nStart < 13    
>           this.Value     = LEFT(this.Value,8)+PADL(ALLTRIM(SUBSTR(this.Value,9,3)),3)+SUBSTR(this.Value,12)
>           this.SelStart  = 12
>           this.SelLength = 3
>   ENDCASE
>ENDIF
>

>
>NOT WELL TESTED!!!!