Public Function Decimal2Hex(ByVal Dec As Integer) As String
        Return Dec.ToString("X")
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Offset As Integer
        Offset = Integer.Parse(TextBox1.Text, _
          Globalization.NumberStyles.HexNumber)
        'MsgBox(Offset)
        Dim R As New BinaryReader(File.Open("C:\0032_0001.seem", FileMode.Open))
        R.BaseStream.Position = Offset
        R.BaseStream.Position-=1
        Dim B As Integer = R.BaseStream.Length - Offset
        Dim Bytes() As Byte
        R.ReadBytes(B)
 
        TextBox2.Text = (Me.Decimal2Hex(B).ToString)
        R.Close()
    End Sub