Private Function ReadPart() As String
  Dim fileHandler as Long
  Dim str As String
  Dim filePath As String
  filePath = "c:\tmp\testdatei.pcl"
  strPart = String(1024, 32)
 
  fileHandler = FreeFile
  Open filePath For Binary Access Read Lock Write As fileHandler
  Seek fileHandler, 1
  Get fileHandler, , strPart
  ReadPart = strPart
 
End Function