Public Function ReadPart(DATEINAME As String)
        Dim bufferLength As Int32 = 16
        Dim position As Int32 = 0
        Dim readNumberChars As Int32 = 0
        Dim buf(bufferLength - 1) As Char
        Dim output As New StringBuilder("")
 
        ' --- Datei öffnen
        Dim fs As New FileStream( _
         DATEINAME, FileMode.OpenOrCreate, _
         FileAccess.Read, FileShare.Read)
 
        ' --- Stream öffnen
        Dim r As StreamReader = New StreamReader(fs, Encoding.Default)
        ' --- Zeiger auf den Anfang
        r.BaseStream.Seek(position, SeekOrigin.Begin)
 
        'block lesen
        readNumberChars = r.ReadBlock(buf, 0, bufferLength)
        output.Append(buf)
        Array.Clear(buf, 0, readNumberChars)
        r.Close()
 
        Dim fs2 As New FileStream( _
         DATEINAME & "_", FileMode.OpenOrCreate, _
         FileAccess.Write, FileShare.Write)
        Dim w2 As StreamWriter = New StreamWriter(fs2, Encoding.Default)
        w2.Write(output)
 
        w2.Close()
 
        Return output.ToString
 
End Function