Acerca de la conversión de decimal a hexadecimal en programación VB

Dim a As String 'Define la variable a como tipo de cadena

DEC_to_HEX = "" ' La variable DEC_to_HEX almacena el resultado de convertir decimal a hexadecimal y el valor inicial es una cadena vacía Do While Dec gt; 0 'Si el número decimal Dec a convertir es mayor que 0, ingresa el bucle

a = CStr(Dec Mod 16) 'Convierte el resto de Dec a 16 en un tipo de carácter. y asígnalo a la variable a

Selecciona Caso a ' Si a es la cadena 10, reasignala a A; si a es la cadena 11, reasignala a B... Si a es la cadena 15, reasignala; a F;

Caso "10": a = "A"

Caso "11": a = "B"

Caso "12": a = "C"

Caso "13": a = "D"

Caso "14": a = "E"

Caso "15": a = "F"

End Select

DEC_to_HEX = a amp; DEC_to_HEX ' Conecta el resto a con DEC_to_HEX, el propósito de un estar al frente es el principio de orden inverso del resto Dec = Dec \ 16 ' Divide el número decimal convertido Dec por 16 para preparar el siguiente resto. Si no es mayor que 0, el ciclo finaliza. Bucle