Применение функции ASCII ко ВСЕМУ тексту - VB

Формулировка задачи:

Добрый вечер! Пишу программу для шифровки текста методом Вернама, одной из составляющих кода является перевод букв введенного ключа в код по таблице ASCII. Код для перевода следующий:

                    Листинг программы
                
 
                        
                          
                    
Dim I As Integer
Dim key As String
Dim key1 As Integer
Private Sub Command1_Click()
key = StrConv(Text1, vbUpperCase)
For I = 0 To CInt(Len(key))
        key1 = Asc(key)
    Next I
Text2.Text = key1
End Sub

К сожалению, он переводит только первую букву, а не весь текст, не могу понять почему, возможно кто-то здесь сумеет мне помочь) Заранее спасибо!

Решение задачи: «Применение функции ASCII ко ВСЕМУ тексту»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim f As String
Dim h As String
Dim lentext As Long
Dim lenkey As Long
Dim I As Long
Private Sub Command1_Click()
a = Text1.Text
'исходный текст
b = Text2.Text
'ключ
lentext = Len(a)
lenkey = Len(b)
For I = 1 To lentext
d = Chr(Asc(Mid$(a, I, 1)) Xor Asc(Mid$(b, ((I - 1) Mod lenkey) + 1, 1)))
If I > 1 Then f = f & ""
f = f & d
Next I
Text3.Text = f
End Sub
Private Sub Command2_Click()
b = Text2.Text 'ключ
c = Text3.Text 'исходный текст
lentext = Len(c)
lenkey = Len(b)
For I = 1 To lentext
a = Chr(Asc(Mid$(c, I, 1)) Xor Asc(Mid$(b, ((I - 1) Mod lenkey) + 1, 1)))
If I > 1 Then h = h & ""
h = h & a
Next I
Text4.Text = h
End Sub