Public Function ReadTxtPart(ByVal sFile As String, ByVal lStart As Long, ByVal _
  lEnd As Long) As String
    Dim FF As Integer: FF = FreeFile
    Dim sBuf As String
 
    Open sFile For Binary As #FF
        sBuf = Space(lEnd - lStart)
        Seek FF, lStart
        Get #FF, , sBuf
    Close #FF
 
    ReadTxtPart = sBuf
End Function