Расшифровка с помощью ключевой фразы

Private Sub Command2_Click()
Dim Text, Psw, Kluch, Symbol As String
Dim CodeSymbol() As Variant
Dim n, i, j As Integer
n = Len(Form2.Text1.Text)
  ReDim CodeSymbol(1 To n, 1 To 2)  
  For i = 1 To n
    CodeSymbol(i, 1) = Mid(Form2.Text1.Text, i, 1)
    CodeSymbol(i, 2) = i
  Next  
  Text = Form1.Text1.Text  
  For i = 1 To Len(Text)
    Symbol = Mid(Text, i, 1)    
    For j = 1 To n
      If CodeSymbol(j, 1) = Symbol Then Psw = Psw & CodeSymbol(j, 2)
    Next j
  Next i  
  Form1.Text2.Text = Psw
End Sub
 
 
Private Sub Command4_Click()
Form1.Hide
Form3.Show
 
Dim Text, Psw, Kluch, Symbol As String
Dim CodeSymbol() As Variant
Dim n, i, j As Integer
  n = Len(Form1.Text2.Text)
  ReDim CodeSymbol(1 To n, 1 To 2)  
  For i = 1 To n
    CodeSymbol(i, 2) = Mid(Form2.Text1.Text, i, 1)
    CodeSymbol(i, 1) = i
  Next  
  Text = Form1.Text2.Text 
  For i = 1 To Len(Text)
    Symbol = Mid(Text, i, 1)    
    For j = 1 To n
      If CodeSymbol(j, 1) = Symbol Then Psw = Psw & CodeSymbol(j, 2)
    Next j
  Next i  
  Form3.Text1.Text = Trim(Psw)
End Sub