嗯 ...也是....简单的想了想..就写了...你的比较不错..

先转成ASC码，然后再转为10进制

8楼的有问题输入as结果等160,其实不用那么麻烦直接用val函数就行了.
如:
Private Sub Command1_Click()
Dim strData As String
strData = InputBox("请输入16进制数")
Print Val("&H" & strData)
End Sub

val你能转多大的数？

这只是一种方法那用下面的能不能满足一般的要求呢?

Private Sub Command1_Click()
Dim strData As String
strData = InputBox("请输入16进制数")
Print CDbl("&H" & strData)
End Sub

注意：要判断一下输入的数据是否为空，否则程序会出错。

哈哈
我正需要
不过有没有简单的

Public Function Dec(TempStr As String) As Long

Dim TempData As String
Dim TempLen As Integer
Dim TempM As String
Dim TempData1 As Long
Dim Loopi As Long
Dim Loopj As Long

On Error GoTo OUT:
TempLen = Len(TempStr)
For Loopi = 1 To TempLen
TempM = Mid(TempStr, Loopi, 1)
Select Case UCase(TempM)
Case "A"
TempM = 10
Case "B"
TempM = 11
Case "C"
TempM = 12
Case "D"
TempM = 13
Case "E"
TempM = 14
Case "F"
TempM = 15
End Select
Loopj = TempLen
Loopj = Loopj - Loopi
TempData1 = TempData1 + CLng(TempM) * 16 ^ Loopj
Next

Dec = TempData1
Exit Function
OUT:

End Function

purana,你好
请问：For i = LenHex To 1 Step -1
HexStep = HexStep * 16
If HexStep = 0 Then HexStep = 1
这段程序的作用是什么？

晕，回复错了。
purana
请问你程序中的
For i = LenHex To 1 Step -1
HexStep = HexStep * 16
If HexStep = 0 Then HexStep = 1
他的作用是什么？请赐教。