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

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

مثلاً

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

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

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

سلام
تابع زیر را بررسی کنید:

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

موفق باشید