Option Explicit\' Чтение файла "c:\\test.txt"\' На форме кнопки - Command1 и Command2 и Label - Label1Private arrByte() As BytePrivate lOffSet As LongPrivate lFileLen As LongPrivate Const lStep As Long = 10000Private Sub Form_Load()    lOffSet = 1    Call ReadFileEnd SubPrivate Sub Command1_Click()    \' Переход на следующую запись    If lOffSet + lStep <= lFileLen Then    \' Определяем смещение в файле        lOffSet = lOffSet + lStep        Call ReadFile    End IfEnd SubPrivate Sub Command2_Click()    \' Переход к предыдущей записи    If lOffSet - lStep >= 0 Then    \' Определяем смещение в файле        lOffSet = lOffSet - lStep        Call ReadFile    End IfEnd SubPrivate Sub ReadFile()    Dim mHandle As Byte    Dim lLen As Long    On Error GoTo BkmErr        \' Открытие файла    mHandle = FreeFile    Open "c:\\test.txt" For Binary As #mHandle    lFileLen = LOF(mHandle)    If lFileLen = 0 Then    \' Проверка размера файла        Close mHandle        MsgBox "Пустой файл"        Exit Sub    ElseIf lOffSet > lFileLen Then    \' Проверка смещения        Exit Sub    ElseIf lOffSet + lStep > lFileLen Then    \' Проверка читаемого диапазона        lLen = lFileLen - lOffSet    Else        lLen = lStep    End If        \' Переопределяем размер массива    ReDim arrByte(1 To lLen) As Byte    \' Считываем данные    Get #mHandle, lOffSet, arrByte    Close mHandle        \' Выводим на экран    Label1.Caption = StrConv(arrByte, vbUnicode)        Exit SubBkmErr:    MsgBox "Ошибка чтения файла. " & Err.DescriptionEnd Sub