جدا کننده ارقام

[آریایی]

سلام دوستان
من یه برنامه ای برای جدا کننده ارقام نوشتم ولی متاسفانه درست کار نمی کنه یعنی مثلا اگر قراره در textbox عدد123456789 وارد شود با گذاشتن جدا کننده توسط برنامه به این صورت می شود 789,456,123 البته من نمی خوام از کامپوننت استفاده کنم
Text19.Text = Val(Text28.Text) - Val(Text21.Text)
If Len(Text21.Text) <> 0 Then
a = Mid$(Text21.Text, Len(Text21.Text), 1)
If a <> "," Then
If (Len(Text21.Text) - i) Mod 3 = 0 Then
Text21.Text = "," + Text21.Text
i = i + 1
End If
End If
End If

[kimiafars]

فکر کنم چون از len استفاده کردی اینجوری شده

[HoseinVig]

نوشتنش به صرفه تر بود تا رفع اشکالش.
من یه تابع نوشتم که تکست باکست و کاراکتر جدا کننده رو باید براش بفرستی تا تغییرات رو اعمال کنه:

کد:

Private Sub Sub1(TxtBox As Control, CH As String)
Dim i, j As Integer
TxtBox.Text = StrReverse(TxtBox.Text)
For i = 1 To Len(TxtBox.Text)
If ((i Mod 3) = 0) And i <> Len(TxtBox) - j Then
TxtBox.Text = Mid(TxtBox.Text, 1, i + j) & CH & Mid(TxtBox.Text, i + j + 1)
j = j + 1
End If
Next i
TxtBox.Text = StrReverse(TxtBox.Text)
End Sub

فرا خوانیش هم به این صورته :

کد:

Sub1 Text1, ","

موفق باشی