عدد دادن بصورت توالی به حروف

[Hassan2500]

سلام
کدی رو میخوام که به هر حرف که مینویسیم یک عدد بصورت توالی بدهد

مثلاً

تکست1
برنامه نویسی

تکست2
1 2 3 4 5 6 7 8 9 10 11
ب ر ن ا م ه ن و ی س ی

[arenaw]

میشه واضح تر توضیح بدی؟

[محسن واژدی]

سلام
تابع زیر را بررسی کنید:
Function GetTextNums(sText$) As String
Dim i
For i = 1 To Len(sText$)
GetTextNums = i & " " & GetTextNums
Next
End Function

برای مثال:
Private Sub Command1_Click()
MsgBox GetTextNums(Text1.Text)
End Sub


موفق باشید