کمک در کامل کردن یه تکه کد

سلام دوستان
من یه برنامه ساده دارم مینوسم که از تکست باکس یا یه فایل یه متن رو میخونه و اون متن رو کد میکنه و توی یه فایل یا تکست باکس 2 ذخیره میکنه این قطعه کد رو ببینین

Private Sub Command1_Click()
text = Text1.text
textLen = Len(text)
For i = 1 To textLen
Char = Left(text, i)
codeasc = Asc(Char)
codeasc = codeasc + 2
code = Chr(codeasc)
Text2.text = code
Next i
End Sub

مشکل اینجاس که فقط کلمه آخر جمله رو کد میکنه !!!!
آیا باید واسه کد کردن ماژول درست کنم و اون رو فراخونی کنم ؟؟؟
لطفا کمکم کنید تا این برنامه رو کامل کنم
ممنون

شما اشتباها بجای تابع mid از تابع left استفاده کردین . مشکل کار اینجاست !

کد:

---

Private Sub Command1_Click()
text = Text1.text
textLen = Len(text)
For i = 1 To textLen
Char = Left(text, i)
codeasc = Asc(Char)
codeasc = codeasc + 2
code = Chr(codeasc)
Text2.text = code
Next i
End Sub

---

درست نشد !!
فرقی نداره چه از وسط بگیره چه از چپ !!!
مشکل اینه که فقط 1 کاراکتر چاپ میشه

امشب وقت نمیکنم فردا بعد از کلاسم چکش میکنم

تست کردم :

کد:

---

Private Sub Command1_Click()
Text = Text1.Text
textLen = Len(Text)
Text2.Text = ""
For i = 1 To textLen
    Char = Mid(Text, i, 1)
    codeasc = Asc(Char)
    codeasc = codeasc + 2
    code = Chr(codeasc)
    Text2.Text = Text2.Text & code
Next i
End Sub

---

حالا اگه بخواهیم از حالت کد به حالت اول برگردونیم باید چی کار کنید؟

از تابع char استفاده کن