Converting String to Hex in Excel VBA

Question

I need to convert strings to hexadecimals in my Excel VBA macro.

I tried:

Dim val As String
val = \"10\"
Dim hexVal As Integer
hexVal = Convert.ToInt         


        

Answer 1

In VBA you need to mess about with the &H literal:

value = val("&H" & "10") '// 16
value = val("&H3366CC")  '// 3368652

Edit

Function FromHex(hexString As String) As Long
    FromHex = Val("&H" & hexString)
End Function

Then

resultString = hex$(FromHex("3366CC") / FromHex("A"))

Or for constants obviously;

resultString = hex$(FromHex("3366CC") / &HA)