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

[ادیسون]

سلام دوستان
من یه برنامه ای برای جدا کننده ارقام نوشتم ولی متاسفانه درست کار نمی کنه یعنی مثلا اگر قراره در 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

[parselearn]

Dim s, n As String
If Text1.Text <> "" Then
For i = 1 To Len(Text1.Text) Step 3
n = Mid(Text1.Text, i, 3)
s = s + "," + n
Next
s = Right(s, Len(s) - 1)
Text2 = s
End If


Text4.Text = format(Text3.Text, "###,###,###,###")

[علی جباری]

با سلام
فكر مي‌كنم فايل ضميمه اشكال داشته باشه.

[parselearn]

فايل ضميمه
مربوط به كدهايي كه بالا نوشتم هست
و فرقي با اونها نداره

[pooshiran]

اينم يك كد راحت البته متغير jرا بايد در اول فرم تعريف كني


PrivateSub mskAmount_Change()
If j = 1 Then
j = 0
mskAmount = Format(mskAmount, "#,#")
SendKeys "{end}"
EndIf
j = 1
EndSub

[ادیسون]

سلام دوستان
به خاطر کدهایی که فرستاده بودید ممنون
خیلی به دردم خورد
ولی من یه مشکلی دارم و اینکه وقتی جدا کننده می گذاره تمام محاسبات اشتباه انجام میشه با اینکه من از تابع val استفاده می کنم مثلا اگر روی عدد 200,000 بخوام محاسبات انجام بدم فقط با عدد 200 کار می کنه و با 000 کاری نداره البته بازهم می گم من از val استفاده می کنم

[parselearn]

يك تاپيك كمكي
http://www.barnamenevis.org/forum/showthread.php?t=151743

[parselearn]

Private Sub Form_Load()
Dim s As String
Dim m As Integer
s = "200,00"

MsgBox CInt(s)
End Sub