CodeItBetter Programming Another VB Programming Blog

'Coding Basics - How to Convert Hexadecimal to Decimal
Public Function ConvertHexadecimalToDecimal(BinVal As String) As String
    Dim iVal#, temp#, i%, Length%
 
    Length = Len(BinVal)
    For i = 0 To Length - 1
        temp = HexToNo(Mid(BinVal, Length - i, 1))
        iVal = iVal + (temp * (16 ^ i))
    Next i
    ConvertHexadecimalToDecimal = iVal
End Function
 
Private Function HexToNo(i As String) As Integer
    Select Case i
        Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9":
            HexToNo = CInt(i)
        Case "A", "a":
            HexToNo = 10
        Case "B", "b":
            HexToNo = 11
        Case "C", "c":
            HexToNo = 12
        Case "D", "d":
            HexToNo = 13
        Case "E", "e":
            HexToNo = 14
        Case "F", "f":
            HexToNo = 15
    End Select
End Function