Перевод информации в семибитный код(Visual Basic)

[maxcoder_1991]

Доброго времени суток.Программа должна рассматривать переданный ей файл как бинарный. В ходе работы программы осуществляется преобразование файла к семибитному виду. Преобразование должно быть обратимым.
В файл один вводим тект, происходит его считывание и перекодировка а затем перевод в исходный вид - декодирование.
Предлагается использовать следующий метод: читаем семь байт из файла и формируем из их старших битов восьмой.
Исходный прграммный код приведен в архиве.Не удается найти ошибку декодирование происходит неверно.Заранее благодарю.