جداکردن اعداد در تکست باکس

[ashakibi]

با سلام
من می خوام تو یه تکست باکس قیمت اعداد به صورت سه تا سه تا جدا بشه یعنی مثلا وقتی من مینویسم 10000000 تکست باکس اونو به این صورت 10.000.000نشون بده منظورم اینکه هم اونو همینطوری نشون بده و هم اونو با ین فرمت ذخیره کنه. آیا باید datafrmate رو تغییر بدم؟ با ید چکار کنم ، برای زبان های دیگه برنامه نویسی تو این سایت گفته ولی برای ویژوال بیسیک هر چی گشتم نبود
ممنون میشم منو راهنمایی کنید

[butterfly8528]

سلام دوست عزیز .
Private Sub Text1_Change()
Text1.Text = Format$(Text1.Text, "###,###,###")
Text1.SelStart = Len(Text1.Text)
End Sub
موفق باشید :لبخندساده:.