Public Module _Nbr Public Function HexaToDec(ValHex As String) As Integer Return Val("&H" & ValHex & "&") End Function Public Function DecToHexa(ValDec as Integer) As String Return Hex(ValDec) End Function End Module