Hola
Mira un poco la función Datediff en la ayuda del access, sería algo parecido a:
Código:
Texto4.text = DateDiff("m", Fecha1.Text, Fecha2.Text)
"m" es para calcular los meses, si pones "d" calcularía los días.
Para la segunda parte no se si existe alguna función, siempre puedes separar la cadena con la finción Mid para coger el mes y luego con un for desde el mes inicial al final crear un select case que lea el mes. Es solo una idea "rara"
--Saludos--