Как зашифровать строку, выполнив циклическую замену каждой буквы на следующую за ней в алфавите - VB

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

Помогите пожалуйста решить задачу, очень нужно на завтра. String62. Дана строка-предложение на русском языке. Зашифровать ее, выпол- нив циклическую замену каждой буквы на следующую за ней в алфавите и сохранив при этом регистр букв («А» перейдет в «Б», «а» — в «б», «Б» — в «В», «я» — в «а» и т. д.). Букву «ё» в алфавите не учитывать («е» должна переходить в «ж»). Знаки препинания и пробелы не изменять.

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

textual
                            Листинг программы 
                        

                            Option Explicit
'''Option Compare Text'''
 
Private Sub Form_Load()
    Dim i As Long, s As String
    s = InputBox("Введите строку")
    For i = 1 To Len(s)
        Select Case Mid$(s, i, 1)
        Case "А"to"Ю","а" To "ю": Mid$(s, i, 1) = Chr$(Asc(Mid$(s, i, 1)) + 1)
        Case "я": Mid$(s, i, 1) = "а"
        Case "Я": Mid$(s, i, 1) = "А"
        End Select
    Next
    MsgBox s
End Sub
                        