LOL...Lbass, I was about to post a very similar approach....I previewed my post, found an error and when I edited I saw yours..
Anywho...
Create a formula...
StringVar Array x := split({YourTable.Field},".");
Right("000"&x[1],3) & Right("000"&x[2],3) & Right("000"&x[3],3) &...