Visual Basic - Conversión urgente

Buenos días estimados programadores. Necesito un favor de uds. Tengo q hacer una conversión de un número hexadecimal a decimal. La cuestión es q recibo el numero en un text y necesito evaluar el texto primero digito por digito y no encuentro manera como hacerlo. Si alguien me puede ayudar como colocar la cadena en un arreglo y luego poder evaluar casilla por casilla se los agradezco

dim N as integer,Digito as string
For N=1 to len(text1)
Digito=mid(text1,N,1)
.................
Next

dim Variable() as variant

for i = 1 to len(cadenatexto)
variable(i)=mid(cadena,i,1)
next i

Funcion: Mid (cadena, inicio,longitud a seleccionar)