Применение функции 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

Option Explicit
Dim A() As String
Dim B() As String
Dim H As String 'исходный текст
Dim m As Integer 'количество строк матрицы
Dim n As Integer 'колицество столбцов матрицы
Dim lentext As Long 'число знаков в тексте
Dim f As String
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim buf As String
 
Private Sub Command1_Click()
H = Text1.Text
'исходный текст
m = Text2.Text
'количество строк матрицы
lentext = Len(H)
n = Abs((lentext - 1) \ m) + 1 'количество столбцов
A() = Split(H, "", -1, vbTextCompare) 'формируем массив из введенных слов
 
ReDim A(1 To lentext) As String, B(1 To m, 1 To n) As String 'формируем матрицу
    For i = 1 To m
        For j = 1 To n
              x = x + 1
              B(i, j) = A(x)
            Print B(i, j);
        Next j
       Print
    Next i
    
For i = 1 To m 'транспонируем матрицу
 For j = i To n
 buf = B(i, j)
 B(i, j) = B(j, i)
 B(j, i) = buf
 Next j
Next i
 
 ReDim B(1 To m * n) 'формируем обратно одномерный массив
    For i = 1 To m * n
    buf = B(i)
        Print B(i);
    Next i
Text3.Text = B(i)
End Sub

Text3.Text = B(i)

Option Explicit
 
Function Skifal(ByVal text) As String
    '
    'Кодирование методом скифала
    'by the fever brain
    '
    
    'Ищем средний *прямоугольник* для текста
    Dim i&, j&, n&, l&: ReDim a$(0)
    l = Len(text)
    For i = 2 To 100: For j = 2 To 100
        If i * j = l Or (i * j + 1) = l Then
            If n > UBound(a) Then ReDim Preserve a(n * 2)
            a(n) = i & vbTab & j
            n = n + 1
        End If
    Next j, i
    a = Split(a(n \ 2 - 1), vbTab)
    
    'Заполняем матрицу
    ReDim matrix(1 To a(0), 1 To a(1)) As String: n = 0
    For i = 1 To a(0): For j = 1 To a(1)
        n = n + 1: matrix(i, j) = Mid(text, n, 1)
    Next j, i
    
    'Перекодируем
    For j = 1 To a(1): For i = 1 To a(0)
        Skifal = Skifal & matrix(i, j)
    Next i, j
    
End Function
 
Private Sub Form_Load()
    MsgBox "Вывод: " & Skifal(InputBox("Исходный текст: ", , "НАС_АТАКУЮТ_"))
    End
End Sub