جدا کردن سه رقم سه رقم در جعبه متن

در صورتی که نیاز باشد در یک جعبه متن اعداد سه رقم سه رقم جدا شوند(مانند مقادیر مالی که لازم است اینکار انجام شود) از کد زیر استفاده نمایید

 

Private Sub TextBox1_Change()

    TextBox1.Text = Format(TextBox1.Text, "#,##0")

End Sub

نقل شده از:

https://stackoverflow.com/questions/32421055/format-numbers-in-textbox-as-you-type