_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Dim fs As New FileStream(filePath, FileMode.OpenOrCreate, FileAccess.Read)
Dim w As New StreamReader(fs)
 
w.BaseStream.Seek(-5000, SeekOrigin.End)
line1 = w.ReadToEnd()
textbox.Text = line1

    Private Function GetLastLines(ByVal file As String, ByVal count As Integer) _
      As String()
        Try
            Dim content() As String = IO.File.ReadAllLines(file, _
              System.Text.Encoding.Default)
            If content.Length <= count Then Return content
 
            Dim tmpList As New List(Of String)
            For index As Integer = content.Length - (count + 1) To _
              content.Length - 1
                tmpList.Add(content(index))
            Next
            Return tmpList.ToArray
        Catch ex As Exception
            Throw ex
        End Try
    End Function