Conversão Hexadecimal -> Decimal

Uma função que faz a conversão de bases hexadecimal para decimal:

Function Hex2Dec( hexadecimal )
dim n, aux, valores, decimal, fator
valores = "0123456789ABCDEF"
n = 1: decimal = 0
for n = len( hexadecimal ) to 1 step -1
    fator   = 16 ^ ( len( hexadecimal ) - n )
    aux     = InStr( valores, mid( hexadecimal, n, 1 ) ) - 1
    decimal = decimal + ( aux * fator )
next
Hex2Dec = decimal
End Function

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...