textbox1 e girilen sayıyı otomatik basamaklara ayırma

[bistrobellman]

textbox1'e veri girildiği anda örneğin 123455656
yazdığımda bunu otomatik 123.455.656 yazacak
ya da textbox1 e 1234565 yazdığımda bunu da basamaklarına ayırıp
1.234.565 diye otomatik yazacak kodu nasıl yazabiliriz?

yani 4 rakamlı ya da 10 rakamlı bunu binler on binler, yüzler gibi basamaklara ayırıp aralara nokta koyacak
textbox1_change olayında bunu otomatik nasıl sağlayabilirim

 

[askm]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format(TextBox1, "#,##0.00")
End Sub