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 hexVal As String
Dim str As String
Dim uzunluk As Integer

On Error Resume Next

hexVal = "#7B19AB" 

str = Replace(hexVal, "#", "")
Text1.Text = str

uzunluk = Len(Text1.Text) 

For i = 0 To uzunluk 
    Text1.SelStart = i 
    Text1.SelLength = 1 
    Print Hex(Asc(Text1.SelText))
Next i