VB中16进制to10进制

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★16进制to10进制
Function chex(tt As String) As Integer
Dim ii As Integer
Dim ee As Integer
 chex = 0
 tt = UCase(Trim(tt))
 For ii = 1 To Len(tt) Step 1
    ee = Asc(Mid(tt, ii, 1))
    If ee < Asc("A") Then ee = ee - Asc("0") Else ee = ee - Asc("A") + 10
    chex = chex * 16 + ee
 Next ii
 End Function
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★16进制to10进制