Visual Basic para Aplicaciones - extraer uno por uno un numero en una cantidad

ejemplo busco un digito verificador de una cantidad 1637037720
quiero extaer el numero de izquierda a derecha uno por uno, aguien me pueda ayudar, anticipadamente mechas gracias

For x = 1 To Len(Text1.Text)
Debug.Print Mid(Text1.Text, x, 1)
Next

Hola Ke tal.

La isntruccion ke necesistas es mid.

se usa de la siguiente manera.

Como tu vas a recorrer una cadena,si vas a comparar uno por uno te sirve asi:

longcadena=len(cadena)

for y=1 to longcadena

caracter=mid(cadena,1,1)

msgbox caracter ---para que veas ke estas obtienendo solamente

next

Lo que hace el mid es ke te extrae uno o varios caracteres segun los paramentros.

Saludos.

Estoy infinitamente agradecido con tu apoyo lo logramos, lástima que en mi pc. no se puede enviar correo, si no con mucho gusto te lo hubiera enviado. Que códigos aplicamos
A través de access Saludos