conversion d'un tableau

bonjour,
j'ai un code pour cryper le code d'une texte box mais je voudrai faire pareil avec un tableau entier.
A la place des textbox il devrait y avoir un tableau
merci d'avance

Private Sub Command1_Click()
Dim i As Long
Dim nAscii As Integer
    Text2.Text = vbNullString
    For i = 1 To Len(Text1.Text)
        nAscii = Asc(Mid$(Text1.Text, i, 1)) + 3
        Text2.Text = Text2.Text & Right$("00" & nAscii, 3)
    Next i
    Text3.Text = Text2.Text
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim nAscii As Integer
    Text4.Text = vbNullString
    For i = 1 To Len(Text3.Text) Step 3
        nAscii = Val(Mid$(Text3.Text, i, 3)) - 3
        Text4.Text = Text4.Text & Chr$(nAscii)
    Next i
End Sub