Чтение последних 100 строк из текстового файла

Private Sub Command1_Click()
Dim fn As String, fh As Integer, fl As Long
Dim sBuffer As String
Dim assumedBuffer As Long
Dim i As Long
Dim stringsCounter As Long
Dim LogStrings() As String
Dim prevCrLfPos As Long
 
 fh = FreeFile
 fn = 'D:vb_devel
eadfileaccess.log'
 fl = FileLen(fn)
 assumedBuffer = 32768
 sBuffer = Space(assumedBuffer)
 
 Open fn For Binary Access Read As #fh
 Seek #fh, (fl - assumedBuffer)
 
 Get #fh, , sBuffer
 Close #fh
 
DoEvents
 
Screen.MousePointer = vbHourglass
stringsCounter = 0
prevCrLfPos = Len(sBuffer)
 
For i = Len(sBuffer) To 1 Step -1
 If Mid(sBuffer, i, 2) = vbNewLine Then
  stringsCounter = stringsCounter + 1
  ReDim Preserve LogStrings(stringsCounter)
  LogStrings(stringsCounter) = Mid(sBuffer, i + 2, 100)
  'prevCrLfPos = Len(sBuffer) - i
 End If
Next i
 
For i = 1 To 100
 Me.List1.AddItem LogStrings(i)
Next i
 
Screen.MousePointer = vbNormal
End Sub

    k&=1
    Do
       p&=Instr(k&,Buf,chr$(10))
       if (p&=0) Then Exit Do  ' блок исчерпан 
       '::: Очередная строка занимает байты от (k&+1) - го до
       '::: (p-1) - го. В p-м байте разделитель.     
       k&=p&+1 
    Loop