یه مشکل کوچیک دارم...

سلام.
یه برنامه نوشتم که قراره تکست رو بگیره و کد اسکی رو بده(نوعی Encryption)
این کد رو ببینید تا توضیحاتشو بگم:
[

کد:

---

T2E = Text1.Text
    If Text1.Text <> "" Then
      For i = 1 To Len(T2E)
        Text2.Text = Asc(Mid(T2E, i, 1))
      Next i

---

حالا مشکلم:
آقا این فقط کد اسکی اولین کاراکترو بم میده...
چکار کنم که کد همه ی کاراکتر هارو بده؟؟؟

این کد هرچی تو تکست نوشته بشه رو به کد اسکی تبدیل میکنه مثلا در ازای ab عدد 9798 رو میده .

کد:

---

Private Sub Command1_Click()
Dim X As String
Text2.Text = ""
For i = 1 To Len(Text1.Text)
X = Mid(Text1.Text, i, 1)
X = Asc(X)
If Val(X) >= 65 And Val(X) <= 122 Then Text2.Text = Text2.Text & X
If Val(X) >= 48 And Val(X) <= 57 Then Text2.Text = Text2.Text & X
Next i
End Sub

---

موفق باشی:11: