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

[sh2007]

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

[mpmsoft]

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