Dim stream As New FileStream("....", FileMode.Open)
Dim reader As New BinaryReader(stream, System.Text.Encoding.Default)
Dim bytes() As Byte
 
bytes = reader.ReadBytes(reader.BaseStream.Length)
 
Dim ausgabe As String
For i As Integer = 0 To UBound(bytes) - 1
ausgabe += bytes(i) & "|"
Next
 
Me.TextBox1.Text = ausgabe
 
stream.Close()
reader.Close()