Абстракция. Обработка символьных и строковых переменных.

[articoli]

Дана строка, состоящая из символов, коды которых имеют значения между 48 и 159(код 48 соответствует цифре "0" в стандарте ASCII а код 175 соответствует заглавной букве «Я»). Зашифровать строку так, чтобы каждый её символ находящийся на чётном месте заменялся на символ, код которого на единицу больше кода исходного символа, а код символа на нечётном месте заменялся на символ, код которого больше на 2. Буквы «Ю» и «Я» оставить без изменения.

пробовал:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim T As New Class1
Dim r As String
Dim st As String
Dim k As Integer = 0
Dim d As String = ""
Dim a As Char
r = T.Text
Do While k < r.Length
a = CChar(r.Substring(k, 1))
If Char.IsLower(a) Then
d = d + a.ToString.ToUpper
Else
If Char.IsUpper(a) Then
d = d + a.ToString.ToLower
st = d
End If
End If
If Char.IsWhiteSpace(a) Then
d = d + a.ToString
End If
k += 1
Loop
TextBox1.Text = st
End Sub

но всё бесполезно, может вы подскажете?