convertire in decimale

[Gianmarco]

Il mio problema è il seguente:

ho una stringa esadecimale e la devo convertire in decimale prendendo 2 caratteri alla volta.

Conoscete qualche funzione che fa al caso mio.

Ciao a tutti

[Corwin]

Function Dec(s)
For x = 1 to Len(s) Step 2
Dec = Dec & " " & CByte ("&H" & Mid(Stringa,x,2))
Next
End function

Stringa = "FA0FAA"
Response.Write dec(Stringa)

[Gianmarco]

grazie