Sub Main()
        Dim path As String = "c:\diagnostic.log"
        Const fileName As String = "c:\Testxyz.txt"
 
        Dim zaehler As Integer = 0
        Dim fileStream As FileStream = New FileStream(fileName, FileMode.Create)
        Dim fs As FileStream = File.OpenRead(path)
        Dim dataArray(100000) As Integer
 
        'fs.Position = 100
        fs.Seek(-6000, SeekOrigin.End)
 
        Do Until fs.Position = fs.Length
            dataArray(zaehler) = fs.ReadByte
            'Console.WriteLine(ChrW(fs.ReadByte))
            zaehler += 1
        Loop
 
        For i As Integer = 0 To zaehler - 1
            fileStream.WriteByte(Convert.ToByte(dataArray(i)))
        Next i
 
 
        fs.Close()
 
        'Console.ReadLine()
End Sub