s = Text1.Text: n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then t = Asc(c) - 32 Else t = Asc(c)
s1 = s1 + Chr(65 + (t - 63) Mod 26)
Next i