Ayuda! Problemas con el formato de fecha

buenas expertos

tengo un problema con el formato de la fecha en excel... Tengo una macro con formulario en donde me muestra la fecha automática en un textbox por este código

Private Sub UserForm_Activate()
txtFecha = Format(Date, "Short Date")
End Sub

pero al guardar el formulario en la hoja3 de excel me guarda la fecha con diferente formato

el pc tiene fecha dd/mm/aaaa y en el formulario me muestra esa... Pero en las hojas de excel me muestra mm/dd/aaaa, he intentado cambiando el formato de la celda pero no corrige el error, que hago???

algo curiosos es que cuando la fecha de dia pasa a dos dígitos osea de 13 en adelante el dia cambia al formato que quiero automático.

gracias por la ayuda

saludos