[pva]

Anton Naumov, можно осмысленные имена переменных, отступы и комментарии перед каждым циклом с описанием идеи? Я вот это

For b = 1 To LenEncrypt tmp = Mid(Text_encrypt.Text, b, 1) If tmp <> " " Then Asc_Renamed(n) = CShort(Asc_Renamed(n) & tmp) Else n = n + 1 If n > 1000 Then MsgBox("Слишком большой текст. Должно быть не более 1000 чисел без учета пробелов.") Exit Sub End If End If Next b »

не понял для чего например...
Вообще считаю что можно было оставить одну функцию для кодирования-декодирования (т.к. оператор XOR обратим), тогда бы не было проблем с неправильным восстановлением.