Private Sub Text0_Change()
Dim i%
Dim b$, b2$
Text1.Text = ""
For i = 0 To Len(Text0.Text)
 b = Left(Right(Text0.Text, Len(Text0.Text) - i), 1)
 If b <> "" Then
  Text1.Text = Text1.Text & longstr(longstr(longstr(longstr(b))))
 End If
Next i
 
Text2.Text = ""
For i = 0 To Len(Text0.Text)
 b = Left(Right(Text0.Text, Len(Text0.Text) - i), 1)
 If b <> "" Then
  Text2.Text = Text2.Text & longstr(longstr(longstr(longstr(b))))
 End If
Next i
 
If Text1.Text = Text2.Text Then Me.Caption "OK"
End Sub
 
Public Function longstr(s As String) As String
Dim i%
Dim b$, b2$
For i = 0 To Len(s)
 b = Left(Right(s, Len(s) - i), 1)
 If b <> "" Then
  If Asc(b) < 46 Then b = Chr(Asc(b) + 46)
  If Asc(b) > 227 Then b = Chr(Asc(b) - 28)
   longstr = longstr & Chr(Asc(b) + 26) & Chr(Asc(b) - 37) & Chr(Asc(b) + 3) & _
     Chr(Asc(b) -   44) & Chr(Asc(b) - 26) & Chr(Asc(b) + 1) & Chr(Asc(b) + 15) _
     & Chr(Asc(b) - 18)
  End If
Next i
End Function

Nsider