جدا کردن مراتب و ارقام یک عدد

[Hassan2500]

سلام
دوتا کد میخوام
1- کدی میخوام که مراتب اعداد را جدا کند حالا عدد هر چند رقم باشد.
مثال
تکست1: 2876459
بعد
تکست2:
9
50
400
6000
70000
800000
2000000

2- کدی میخوام که سه تا سه تا ارقام عدد را جدا و در چند تکست بنویسد.
مثال
تکست1: 2876459
بعد
تکست2:
459
تکست3:
876
تکست4:
2

[Veteran]

کد اولی
خاصیت multiline تکست 2 رو true کنین

====


Private Sub Command1_Click()
For i = 1 To Len(Text1)
num = Right(Text1, i)
num = Left(num, 1)
Text2 = Text2 & num & String(i - 1, "0") & vbCrLf
Next
End Sub

===

[arenaw]

اینم دومی
(یه دونه Text بساز به اسم Text1, چند تا هم بساز به اسم Text2 که اندیساشون از 0 شروع بشه)

Dim S$, N%, FreeText
N = 0
FreeText = 0
For i = Len(Text1) To 1 Step -1
S = S & Mid(Text1, i, 1)
N = N + 1
If N = 3 Then N = 0: Text(FreeText) = S: S = "": FreeText = FreeText + 1
Next
If S <> "" Then Text(FreeText) = S

[Hassan2500]

کار نمیکنه اگه میشه سورسشو بزارید و میخوام کلاً چهارتا تکست باشه که در اولی عدد و در بقیه... و میخوام بصورت اندیکس هم نباشن

[arenaw]

بیا ولی یکمم سعی کن خودت یاد بگیری