用VB编写十六进制转换十进制程序

Public Function Hex2Dec(s As String) As Long
n = Len(s)
For i = n To 1 Step -1
Hex2Dec = Hex2Dec * 16 + Val(Mid(s, i, 1))
Next i
End Function

如果你的十六进制数据是一个字符型的
如 "CD"
这样转换
S="CD"
Print Clng("&H" & S)

如果是数值型的,直接使用就行了