کد زیر را در یک Textbox قرار دهید و مشاهده می کنید که به صورت سه رقم سه رقم اعداد را جدا می کند .
یک شنبه 23 آبان 1389 8:40 PM
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,0")
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
End Sub
