Hex to decimal conversion

See more:

VBScript

I have an excel macro. The macro converts the hex value entered in a cell.
When the cell has a value between 8FFF to FFFF, the conversion results in a negative integer.
For eg: FFFF is converted to -1.
The code part is given below:

Dim IntVal As Long
IntVal = Val("&H" & hexVal) 
' hexVal is the value read from the cell(eg:- FFFF)

How can I convert the hex to a correct decimal? Please provide me a solution.