For i = 1 To n s = Mid(Text1.Text, i, 1) If s >= "a" And s "z" Then s = Chr(Asc(s) - 26) ElseIf s >= "A" And s