Можно ли прочитать файл постепено ???

Option Explicit
 
Public Const ERR_NOTVALIDPARAM As Long = 5050
Public Const DERR_NOTVALIDPARAM As String = 'not valid parameters.'
 
Public Function FileData(FileName As String, Optional Start As Long, Optional Count As Long) As String
'****************************************************************************
'Author     ma3ai
'Usage      4itaet iz faila s imenem 'FileName' 'Count' simvolov na4inaja s pozicii 'Start'
'Returns    Returns true if FDD media is accessible
'Notes      vnimanie - net obrabotki oshibok (po4ti...) i ne vsje predusmotreno !
'           tak-ze mozno vosvrashat massiv Value() as byte
'****************************************************************************
    Dim ECode As Long
    Dim EDescription As String
    '****
    Dim ID As Long
    Dim Bytes As Long
    Dim Value As String
    On Error GoTo ERR_HANDLER
    ID = FreeFile
    Open FileName For Binary As ID
    Bytes = LOF(ID)
    If Bytes = 0 Then
        'ne4ego nam tut delat'
        Close ID
        'mozno kone4no kakuju nibud' oshibku vibrosit' - no ne budem, dlja kratkosti
        Exit Function
    Else
        If Start = 0 Then Start = 1
        If Count = 0 Then Count = Bytes
        If Count + Start - 1 > Bytes Then ECode = ERR_NOTVALIDPARAM: EDescription = DERR_NOTVALIDPARAM: GoTo ERR_HANDLER_
        If Start > Bytes Or Start < 0 Then ECode = ERR_NOTVALIDPARAM: EDescription = DERR_NOTVALIDPARAM: GoTo ERR_HANDLER_
        'nadejus' vsje predusmotrel...
        Seek #ID, Start
        Value = Space(Count)
        Get ID, , Value
        'esli mi tut - oshibok net ...
        FileData = Value
    End If
Exit Function
ERR_HANDLER:
    'mozem delat' po-drugomu - eto na skoruju ruku
    ECode = Err.Number
    EDescription = Err.Description
ERR_HANDLER_:
    On Error GoTo 0
    Close ID
    Err.Raise ECode, 'xxx:FileData', EDescription
End Function