Basic - Ayuda con un codigo

Buenas necesito un ayuda con un codigo de un sistema que estoy realizando en Visual Basic 6.0 el cual se los muestro con un ejemplo para que entiendan mejor:

Estoy realizando un sistema numerico con forma de piramide invertida en base al dia, mes y año: 10-05-2014 en forma de piramide seria asi:

10052014
1057215
152936
67129
3831
114
25
7

Ahora como veran es un sistema con forma de piramide numerica invertida basada en sumar los digitos entre si, como la suma de los digitos que no contiene valo (0) dara un resultado de 2 digitos solo necesito tomar el valor del segundo digito o mejor dicho del lado derecho y asi sucesivamente hasta llegar a la punta que consta de un solo digito.

para ser un poco mas especifico, si los digitos son el 7 y el 5 y la suma de estos entre si da un resultado de 12 solo y unicamente necesito el valor 2 y asi sucesivamente pero no se como se hace en ese caso para que el programa no me tome los dos sino uno.

Yo lo pasaría a string y con una función recursiva iría generando las diferentes alturas de la pirámide.
Para cada llamada de la función calcularía una altura y la pasaría nuevamente a la misma función

macro para que no se abra el archivo si cambia de ruta