User Form'da Tarİh Formati

[karagöz55]

ARKADAŞLAR MERHABA
UserForm'da yaptığım proğramda tarih formatı ayarladığım TexBox'ta
Private Sub DogumTarihi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
DogumTarihi.Value = Format(DogumTarihi.Value, "dd.mm.yyyy")
End Sub
formülünü kullandım.
Ancak bu formül o hücreye girdiğim tarihi mesela13/3/2008 olarak gösteriyor. Gerçi çıkarken 13.3.2008 olarak düzeltiyor ama bir sorun var ki o da günün değeri 12den küçükse ay ve gün değerleri yer değiştiriyor, yani 12.3.2008 olması gereken gün 3.12.2008 oluyor, bunu düzeltmenin bir yolu var mı? Ben tarihin hem formda ve hem sayfada 12.3.2008 şeklinde gözükmesini istiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Mid(TextBox1, 1, 2) & "." & Mid(TextBox1, 3, 2) & "." & Mid(TextBox1, 5, 4)
[A1] = Me.TextBox1
End Sub