VB6.0 16进制转成成10进制

在VB6.0中，可以使用以下代码将16进制数转换为10进制数：

Dim hexString As String
Dim decimalNumber As Long

hexString = "A5" '16进制字符串
decimalNumber = Val("&h" & hexString) '转换为10进制数

MsgBox decimalNumber '弹出消息框显示转换后的10进制数

上述代码中，首先定义了一个字符串变量 `hexString` 来存储16进制字符串，然后使用 `Val` 函数将其转换为10进制数并存储在 `decimalNumber` 变量中。最后，使用 `MsgBox` 函数将转换后的10进制数显示在消息框中。