Выполнить циклическую замену каждой буквы на букву того же регистра - VB

Формулировка задачи:

Дано зашифрованное предложение на русском языке (способ шифрования описан в задании №63) и кодовое смещение K (0 < K < 10). Расшифровать предложение. №63. Дана строка-предложение на русском языке и число K (0 < K < 10). Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра, расположенную в алфавите на K-й позиции после шифруемой буквы (например, для K = 2 «А» перейдет в «В», «а» — в «в», «Б» — в «Г», «я» — в «б» и т. д.). Букву «ё» в алфавите не учитывать, знаки препинания и пробелы не изменять. Помогите с задачей, пожалуйста

Решение задачи: «Выполнить циклическую замену каждой буквы на букву того же регистра»

textual
                            Листинг программы 
                        
                            '::: Кодирование Цезаря
 
Function Caesar_EnCode(Stri As String, k As Integer) As String
  LettersU$ = "ГЂГЃГ‚ГѓГ„Г…Г†Г‡Г€Г‰ГЉГ‹ГЊГЌГЋГЏГђГ‘Г’Г“Г”Г•Г–Г—Г