VB 十六进制转换成十进制问题

[YC3354]

有一串十六进制数据。
我用以下做测试。

Private Sub Form_Click()
Const aa = "8003100000918B0000000000000000000000008560"
xx = Val("&H" & Mid(aa, 7, 8))
Text1.Text = xx
End Sub

测试 发现这个是错误的，应该是37259才对。

求正确的十六进制转十进制代码！

[笨狗先飞]

Private Sub Form_Click() Const aa = "8003100000918B0000000000000000000000008560"  xx = Val("&H" & Mid(aa, 7, 8) & “&”)  Text1.Text = xx End Sub

[youyouting]

我刚才发布了一条人才招聘信息，如果有意，可与我联系。13636381964 上海微晨信息科技有限公司：陈先生