You should try something similar to:
Dim fs As New FileStream(filepath, FileMode.Open, FileAccess.Read)
fs.Seek(-100, SeekOrigin.End)
Dim bytearray(100) As Byte
Dim numbytesread As Integer = fs.Read(bytearray, 0, 100)
textbox1.text = System.Text.Encoding.ASCII.GetString(bytearray)