Visual Basic - sacar caracteres de un campo

al ingresar un numero en un texbox, necesito sacar los digitos de este numero. Por ejemplo:
5217
necesito sacar el 5, luego el 2... hasta el sacar el ultimo digito

Saludos desde venezuela, si lo que necesita es ir sacando a variable los caracteres de una cadena puedes utilizar la funcion mid(cadena,nInicio,nCantidad) en donde
Cadena es el texto completo
nInicio es la posicion del caracter a empesar
nCantidad es la cantidad de elementos a extraer
Ejemplo

public sub Command1_click()
'Declaras una matriz con el maximo de longitud del texto
'por ejemplo 20
dim valor(20) as string
'haces un ciclo de 1 hasta la longitud del texto
for i=1 to len(text1.text)
'le asignas a la matriz en la posicion i
'el digito a extraer
valor(i)=mid(text1.text,i,1)
next
end sub
'Espero te sirva