[Amin_Mansouri]

سلام دوست عزیز
متاسفانه من دیشب جوابتو داده بودم اما پستم ارسال نشده بود.
خواهشی که دارم یک جا فقط پست بزنید مطمئن باشید با اولین فرصت جواب شما داده میشود.
جدا کردن 3 رقمی اعداد در visual basic

کد:

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