Excel - problema con los formatos de la fecha

Tengo un userform que recoge varios datos y los incluye en una hoja de calculo, entre ellos la fecha. En el TextBox para recoger la fecha, tengo la expresión = Date - 1 para que automaticamente me ponga la fecha de ayer.

La celda donde se guarda ese valor, tiene formato fecha dd/mm/aaaa, pero el userform la introduce como mm/dd/aaaa cuando detecta que el dia puede ser un mes, y como dd/mm/aaaa cuando detecta que el dia es mayor de 12 y por lo tanto no lo puede considerar como mes.

Es un grave problema, ya que a partir de la celda de la fecha, y utilizando la funcion MES() comienzo a calcular otros valores, pero claro, con ese problema de formatos, el calculo del mes esta mal.

Alguien me puede ayudar? Urgente

[a1] = Format(CDate(TextBox1))

Abraham

Sigue sin funcionar. Me puedes echar una mano Abraham?

Ya esta solucionado Abraham,

al final he declarado una variable de tipo date
y con tu codigo anterior funciona perfectamente.

Gracias

Dim LDate As Date
LDate = CDate(TextBox1)
[a1] = LDate