Функция Dec - VB

Формулировка задачи:

В Visual Basic есть встроенная функция

Hex

для преобразования числа в 16-ричную систему счисления. А как сделать функцию для преобразования из Hex в десятичную систему. Я что то сообразить не могу как сделать.

Решение задачи: «Функция Dec»

textual
                            Листинг программы 
                        

                            Sub ShotTest() 'пример перевода в число 16-теричных и 8-меричных строк в VB(A)
 
MsgBox "123456789abcdef = " & CDec("&H" & "123456789abcdef")    'к строке цепляем "&H"
MsgBox "Восьмеричное число 1000 = " & CInt("&O" & "1000")       'к строке цепляем "&O"
End Sub
                        