Public Function ReadFileBlock(ByVal sFile As String, ByVal nBlock As Long, _
  Optional ByVal nBlockSize As Long = 1024) As String
 
  Dim F As Integer
  Dim sBuffer As String
  Dim nPos As Long
 
  nPos = nBlockSize * (nBlock - 1) + 1
  sBuffer = Space$(nBlockSize)
 
  F = FreeFile
  Open sFile For Binary As #F
  Seek #F, nPos
  Get #F, , sBuffer
  Close #F
 
  ReadFileBlock = sBuffer
End Function

sBuffer = ReadFileBlock("Datei.dat", 3)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de