在工业自动化控制领域，VB广泛应用于上位机软件开发。在通讯过程中，数据转换是必不可少的。今天我们来介绍如何将十六进制转换为十进制。以下是代码示例：
Function HEX_to_DEC(ByVal Hex As String) As String ' 十六进制转换为十进制
Dim i As Long
Dim decValue As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": decValue = decValue + 16 ^ (i - 1) 0
Case "1": decValue = decValue + 16 ^ (i - 1) 1
Case "2": decValue = decValue + 16 ^ (i - 1) 2
Case "3": decValue = decValue + 16 ^ (i - 1) 3
Case "4": decValue = decValue + 16 ^ (i - 1) 4
Case "5": decValue = decValue + 16 ^ (i - 1) 5
Case "6": decValue = decValue + 16 ^ (i - 1) 6
Case "7": decValue = decValue + 16 ^ (i - 1) 7
Case "8": decValue = decValue + 16 ^ (i - 1) 8
Case "9": decValue = decValue + 16 ^ (i - 1) 9
Case "A": decValue = decValue + 16 ^ (i - 1) 10
Case "B": decValue = decValue + 16 ^ (i - 1) 11
Case "C": decValue = decValue + 16 ^ (i - 1) 12
Case "D": decValue = decValue + 16 ^ (i - 1) 13
Case "E": decValue = decValue + 16 ^ (i - 1) 14
Case "F": decValue = decValue + 16 ^ (i - 1) 15
End Select
Next i
HEX_to_DEC = decValue
End Function