Visual Basic - lectura de digito uno a uno

amigos si en un textbox tengo un numero de 6 digitos como puedo leer cada digito y asignarle una variable por digito.
me explico
nuemero a leer es 634100 y la idea es obtener lo siguiente a =6 ; b=3 ;c=4 y asi....

alguien sabe como???

gracias

dim aDigitosProd(1 to 50)

For i = 1 To len(text1.text)
aDigitosProd(i) = Int(Mid(text1.text, i, 1))
Next i

perdona DIEGOL pero parece que el que contestó no entendió la pregunta.

creo que estaba clara

Y COMO ES ENTONCES PORQUE INTENTO E INTENTO Y NO PUEDO LEER ESA MATRIZ...

ahora el no se entera soy yo.

era un texbox o una matriz?

es que cada dia estoy mas despistao, perdona si no lo entendi.

UN NUMERO DE SEIS DIGITOS DENTRO DE UN TEXTBOX ES DECIR EL TEXT, Y QUIERO LEERLO UNO A UNO DANDOLE UNA VARIABLE A CADA UNO.
HABIA PENSADO HACERLO CON UNA MATRIZ PERO NO SE COMO...

GRACIAS POR TU AYUDA

Es parecido a como te pusieron antes

Dim a() As String, i As Integer, x As Integer
x = Len(Text1)
ReDim a(x - 1)
For i = 1 To x
a(i - 1) = Mid(Text1, i, 1)
Next i

ó

Dim a() As Integer, i As Integer, x As Integer
x = Len(Text1)
ReDim a(x - 1)
For i = 1 To x
a(i - 1) = Val(Mid(Text1, i, 1))
Next i

Si en el TextBox tienes por ejemplo "123450" en el primer ejemplo
a(0) = "1" (variable String)
en el segundo ejemplo
a(0) = 1 (variable numérica)

COMPLETAMENTE AGRADECIDO!!!! LA OPCION NUMERICA ES LA Q BUSCABA, AUNQUE COMO STRING TAMBIEN ME VA A SERVIR MAS ADELANTE.

GRACIAS MANOLON

lo q pasa despistado es que uds estan acostumbrados a tener todo resuelto.
es clara la respuesta que doy, solo tienes que hacer algo más y si no lo sabes o no la entiendas es tu problema.

lo q pasa cHRIstian es que uds la respuesta que da no les soluciona las dudas del que pregunto (con lo cual no es tan clara la respuesta) , porque es posible que no hayas entendido la pregunta o que contestes por contestar (como se suele hacer muy a menudo en este foro) el que pregunto lo esta diciendo, lo de manolon funciona lo tuyo no!

no se si lo entiendas o te lo tengo que explicar mas claro