Imports System.Text
Imports System.IO
 
Public Class Form1
    Dim bytes() As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Using fs As New FileStream("TestFile.bin", FileMode.Open, _
          FileAccess.Read)
            Using reader As New BinaryReader(fs)
                bytes = reader.ReadBytes(CInt(fs.Length))
            End Using
        End Using
        Dim sb As New StringBuilder(2 * bytes.Length)
        For Each b In bytes
            sb.Append(String.Format("{0:X2}", b))
        Next
        RichTextBox1.Text = sb.ToString()
        Button1.Enabled = True
        Label1.Text = "F E R T I G"
    End Sub
 
End Class