Convert hex value to a decimal value in VB6

Try It:

value=CDbl("&H" & HexValue)

value=CInt("&H" & HexValue) 'but range +- 32,768

This should do it

Dim hexVal as String
hexVal = "#7B19AB"
Dim intVal as Integer
intVal = Val("&H" & Replace(hexVal, "#", ""))

Get rid of the # sign

Dim hexVal as string
hexVal = "7B19AB"
clng("&H" & hexVal)

Get rid of the number sign (#) in the hexVal string.

Related