کد زیر را در یک Textbox قرار دهید و مشاهده می کنید که به صورت سه رقم سه رقم اعداد را جدا می کند .

 

Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,0")
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
End Sub