Sub Open()
  Dim B As BinaryReader
  Dim F As FileStream
  Dim BinFile As New ArrayList()
 
  F = New FileStream(FilePath, FileMode.Open)
  B = New BinaryReader(F)
 
  BinFile.AddRange(B.ReadBytes(F.Length))
 
  F.Close()
 
  Dim i As Integer
  Dim S As New StringBuilder()
 
  For i = 0 To BinFile.Count - 1
      S.Append(CByte(File(i)).ToString("X").PadLeft(2, "0") & " ")
  Next
 
  FileTextBox.Text = S.ToString.Substring(0, S.Length - 1)
 
  FOpen.Close()
End Sub