Textbox con fecha no guarda correctamente

Amigos de ela comunidad TE, tengo un problema con esta macro:

Private Sub txt_fechadocu_LostFocus()
validarfecha = IsDate(txt_fechadocu.Value)
If validarfecha = False Then
MsgBox ("Campo " & Range("L11") & " incorrecto"), vbInformation, "Error"
'txt_fechadocu.Activate
txt_fechadocu.BackColor = vbRed
ElseIf validarfecha = True Then
txt_fechadocu = CDate((txt_fechadocu))
txt_fechadocu.BackColor = vbWhite
txt_detalles.Activate
End If
End Sub

Antes de todo, mencionar que si valida, guarda y casi todo bien, el detalle que acabo de detectar es que no guarda algunas fechas como las ingreso yo, es decir si por ejemplo, si en el textbox dígito 01/12/2016, este me guarda en mi hoja 12/01/2016, pero si dígito 13/12/2016 este se guarda correctamente, alguien podría ayudarme con ese detallido