سه رقم سه رقم جدا كردن اعداد

[sh2007]

با سلام خدمت دوستان
من مي خوام توي يك تكست باكس اعدادي رو كه تايپ مي شه سه رقم سه رقم جداكنه
اين كد :
Text1.Text = FormatNumber(Text1.Text, 0
اما در زمان اجرا مي خواهم انجام شود مثلا هنگامي كه اعداد تايپ مي شود من توي رويداد chnage تكست باكس اين كار رو انجام مي دم اعداد همه به هم مي ريزد:عصبانی++::عصبانی++:
دوستان لطف مي كنند منو راهنمائي كنند

[mpmsoft]

Text1.Text= Format(Text1.Text,"###,###,###") : Text1.SelStart = Len(Text1.Text)