Imports System.IO
 
Public Class Form1
 
    Sub DateiLesen(DateiName)
        Dim fs As FileStream = New FileStream( _
            DateiName, FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim sr As StreamReader = New StreamReader(fs)
        sr.BaseStream.Seek(0, SeekOrigin.Begin)
        While sr.Peek() > -1
            ListBox1.Items.Add(sr.ReadLine())
        End While
        sr.Close()
        fs.Close()
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
            Handles Button1.Click
        DateiLesen("Pfad der txtDatei")
        Dim s As String = ListBox1.Items(0)
        TextBox1.Text = s.Substring(Len(s) - 5, 5)
    End Sub
 
End Class