Changing letters

[toonski84]

okie dokie enjoy.

Code:

function decode$ (message$)
  for x = 1 to len(message$)
    a = mid$(message$, x, 1)

    select case a
      case 65 to 90
        a = (((a-65) + 25) mod 26) + 65
      case 97 to 122
        a = (((a-97) + 25) mod 26) + 97
    end select
    
    mid$(message$, x, 1) = chr$(a)
  next x
    
  decode$ = message$
end function

hey, if you want to know how this works i'll break it down for you when i have some time later.