Чтение файлов по байтам - VB

Формулировка задачи:

Люди помогите пожалуйста! Как в Visual Basic 6 считать файл по байтам?? Мне нужна программа способная работать с отдельными байтами файла, а не целыми строками.

Решение задачи: «Чтение файлов по байтам»

textual
                            Листинг программы 
                        

                            Dim b As Byte
Dim FileName As String 'имя открываемого файла
Open FileName For Binary As #1
Get #1, 1, b ' Считали первый байт в переменную b
Close
                        