Здесь я напишу код о самом простом методе шифровки - замене символа его кодом. Это значит, что мы просто будем использовать с каждым символом функцию Asc():
Dim strShifr1 As String ' Это для ввода в программу шифруемого текста
Dim strShifr2 As String ' Это для вывода из программы шифруемого текста
Dim strDeShifr1 As String ' Это для ввода в программу дешифруемого текста
Dim strDeShifr2 As String ' Это для вывода из программы расшифрованного текста
Dim zS As String ' Для обработки отдельных символов
Dim xS As Long ' Счетчик
' Код для шифровки текста
For xS = 1 To Len(strShifr1) ' Перебор все символов
zS = Str(Asc(Mid(strShifr1, xS))) ' Получение кода символа
If Len(zS) = 3 Then zS = "0" + zS ' Подгонка всех кодов к четырем символам
strShifr2 = strShifr2 + zS ' Добавление полученного кода ко всей строке
Next xS ' Следующий символ
' Код для дешифровки текста
For xS = 1 To Len(strDeShifr1) Step 4 ' Просмотр через каждые четыре цифры
zS = Chr(Val(Mid(strDeShifr1, xS, 4))) ' Перевод кода в символ
strDeShifr2 = strDeShifr2 + zS ' Строка с расшифрованным текстом
Next xS ' Следующий код
| 
. Написал значит прогу, но как всегда для красоты понаустановил кучу активов, и приехали, хз, че там дало сбой, но короче после переустановки винды я не мог исходник открыть. Единственное, что осталось это первая версия скомпилированной программы, но она ток в программе не расшифровывала обратно, так и остались у меня зашифрованные документы. 
