Convert hex value to a decimal value in VB6

Question

How can I convert a hex value to a decimal value in VB6?

I\'m trying just to see if this works:

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


        

Answer 1

Dim uzunluk as Integer

On Error Resume Next
uzunluk = Len(Text1.Text)
For i = 0 To uzunluk
     Text1.SelStart = i
     Text1.SelLength = 1
     Print Hex(Asc(Text1.SelText))
Next i