Thanks a lot Dave, Kipitcool and Tom.

I give up.
My macro will be used with different Windows and Office
versions. I can`t write a macro for each installation.
I´ll convert dates number by number, like in the 80´s (if
val(Mid(xnomdeu, 1, 2))< 13). It´s a shame but it works.

Thanks again

Rodolfo