Function Caesar(str,offset) Dim length,char,i Caesar = "" length = Len(str) For i = 1 To length char = Mid(str,i,1) If char >= "A" And char <= "Z" Then char = Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26 Caesar = Caesar & Chr(char) ElseIf char >= "a" And char <= "z" Then char = Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26 Caesar = Caesar & Chr(char) Else Caesar = Caesar & char End If Next End Function
