[Admiral]

Anton Naumov, так почему её не указать публично?

Всем кому интересна данная тема.
Во первых наблюдаем опечатку - T. ext_Renamed.Text = ""
Нужно исправить на Text_Renamed.Text = ""
Создаётся впечатление что код даже не пробовали собирать. Хотя с другой стороны, по умолчанию среда, при неудачном сборе, запускает последний удачно собранный бинарник (не знаю, на сколько это было правильно сделано со стороны MS, да и зачем? Без проблемная философия .NET?), так что вполне возможно внося правку допустили опечатку.
Тем не менее, нужно внимательно следить за тем, с репрезентацией какого исходника сейчас имеем дело, читать сообщения во время сборки.

Далее, если б код был изначально написан с рекомендацией pva (CmdDecr + CmdEncr) - следующей ошибки могло и не быть.

Код:

Private Sub CmdDecr_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdDecr.Click
'...
Dim G As Object
'...
X = Asc_Renamed(b) Xor G
'...

Операция Xor проводится с не инициализированной переменной G.
Должно быть (по аналогии с Private Sub CmdEncr_Click) так
G = S(t)
X = Asc_Renamed(b) Xor G

Ещё конечно остаются по оптимизации программы (не самого алгоритма, а именно программной части).