Tarihte bozulma oluyor

[mrkync]

Arkadaşlar Office 2013 kullanıyorum daha önce kullandığım kodlar yanlış çalışmaya başladı. Aşağıda sıkıntı yaşadığım kodları yazıyorum.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.Value = Format(TextBox3.Value, "dd.mm.yyyy")
End Sub
Private Sub TextBox3_Change()
If UserForm2.TextBox3 <> "" Then
If Len(TextBox3) = 2 Then
TextBox3 = Format(TextBox3, "0#"".")
End If
If Len(TextBox3) = 5 Then
TextBox3 = Format(TextBox3, "0#"".""##"".")
End If
If Len(TextBox3) = 10 Then
TextBox3 = Format(TextBox3, "0#"".""##"".""####")
End If
End If
End Sub

Daha önceden bu kodlar çok iyi çalışıyordu ancak örneğin şimdi 20.08.2013 yazmak istediğimde otomatik olarak 00.20.2013 olarak dönüşüyor. Sıkıntı ne olabilir

 

[hımmmmmmmm]

formatları aşağıdakiler gibi denedinmi...

Format(TextBox3, "0#.")
Format(TextBox3, "0#.##")
Format(TextBox3, "0#.##.####")

veya

Format(TextBox3, "dd.")
Format(TextBox3, "dd.mm.")
Format(TextBox3, "dd.mm.yyyy")