Problema raro raro con fechas!!

Tengo en una macro un bucle que coge la fecha de todas las celdas de una
columna y separa los valores de dia mes y año. Dichas celdas tienen todas
formato de fecha. El problema es que con un criterio que parece totalmente
arbitrario el código en una determinada celda se detiene y me da el siguiente
error en la linea con el *: "Se ha producido el error 13 en tiempo de
ejecución. No coinciden los tipos"
He probado a cambiar los ".text" por ".value" y lo único que he conseguido
es que el error me de el mismo error en otra celda diferente. He probado a
declarar todas las variables como Variant y da lo mismo. ¿Qúe puede estar
sucediendo?. El código del bucle es el siguiente:
'--
Dim FECHACOMPLETA AS Variant
Dim dia, mes, año AS String

FECHACOMPLETA = FI.Cells(6, 1).Text

'ASIGNAR VALORES A LAS VARIABLES

* dia = Day(FECHACOMPLETA)
If dia < 10 Then dia = "0" & dia
mes = Month(FECHACOMPLETA)
If mes < 10 Then mes = "0" & mes
año = Right(Year(FECHACOMPLETA), 2)
fech = año & mes & dia
'

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.