Public Function ReadHexValue32Bit(ByVal lpOffset As Int32)
        Dim FS As New IO.FileStream(OFD.FileName, IO.FileMode.Open)
        Dim BR As New IO.BinaryReader(FS)
        BR.BaseStream.Position = lpOffset
        Dim buffer As Byte() = BR.ReadBytes(4)
        FS.Close()
        BR.Close()
        Return BitConverter.ToInt32(buffer, 0)
    End Function