将十进制转换成十六进制的代码如下：
Private Sub Form_Click()
Const aa = "8003100000918B0000000000000000000000008560"
xx = Val("&H" & Mid(aa, 7, 8) & “&”)
Text1.Text = xx
End Sub
扩展资料
十六进制转换有16进制每一位上可以是从小到大为0、1、2、3、4、5、6、7、8、9、A、B、C、D、E、F16个大小不同的数，即逢16进1，其中用A，B，C，D，E，F（字母使用大写）这六个字母来分别表示10，11，12，13，14，15。
16进制即逢16进1，每一位上可以是从小到大为0、1、2、3、4、5、6、7、8、9、A、B、C、D、E、F共16个大小不同的数。16进制转换即16进制与其他不同进制之间的换算转换，常见如2进制、8进制、10进制等进制。
16进制数的第0位的权值为16的0次方，第1位的权值为16的1次方，第2位的权值为16的2次方……
所以，在第N（N从0开始）位上，如果是是数 X （X 大于等于0，并且X小于等于 15，即：F）表示的大小为 X * 16的N次方。
例：2AF5换算成10进制:
用竖式计算：
第0位： 5 * 16^0 = 5
第1位： F * 16^1 = 240
第2位： A * 16^2= 2560
第3位： 2 * 16^3 = 8192
-------------------------------------
10997
直接计算就是：
5 * 16^0 + F * 16^1 + A * 16^2 + 2 * 16^3 = 10997
