Cómo convertir decimal a hexadecimal en VB

El código para convertir decimal a hexadecimal es el siguiente:

Private?Sub?Form_Click()

Const?aa?=?"8003100000918B00000000000000000000000000000000008560" xx ? =?Val("H"?Mid(aa,?7,?8)??")

Texto1.Text?=?xx

Fin?Sub

Información ampliada

Conversión hexadecimal Cada dígito hexadecimal puede ser 0, 1, 2, 3, de pequeño a grande, 4, 5, 6, 7, 8, 9, A, B,. C, D, E, F16 Números de diferentes tamaños, es decir, 1 en 16, con seis letras A, B, C, D, E, F (letras mayúsculas) representan 10, 11, 12, 13, 14 y 15. respectivamente.

La conversión hexadecimal tiene un sistema hexadecimal, es decir,

La conversión hexadecimal tiene un sistema hexadecimal, es decir, la conversión hexadecimal es diferente de otros sistemas Conversión entre sistemas comunes como 2, 8, 10 y así sucesivamente.

El peso del dígito 0 de un número hexadecimal es 0 elevado a 16, el peso del primer dígito es 1 elevado a 16 y el peso del segundo dígito es 2 elevado a 16 ?

Por lo tanto, en la posición N (N comienza desde 0), si es el número X (X es mayor o igual a 0, y X es menor o igual a 15, es decir: F ), significa N de X * 16 El tamaño de la potencia. 2 * 16^3 = 8192

----- ------------------------------- --- -

10997

El cálculo directo es:

5 * 16^0 F * 16^1 A * 16^2 2 * 16^ 3 = 10997