Textboxta tarih hatası

[dortmevsim]

Merhaba

Arkadaşlar ekte sunduğum userformda TextBox18 ve TextBox32 ta bulunan tarihleri 05.03.2017 olarak giriyorum ama görüntülediğimde 03.05.2017 olarak görüntüleniyor


If IsDate(TextBox18) = True Then TextBox18 = Format(TextBox18, "dd.mm.yyyy")
If IsDate(TextBox32) = True Then TextBox32 = Format(TextBox32, "dd.mm.yyyy")
s1.Activate
End Sub

şeklinde kod nasıl düzeltileceği hakkında yardım edebilir misiniz teşekkürler.

 

[yanginci34]

If IsDate(TextBox18) = True Then TextBox18 = Format(TextBox18, "dd.mm.yyyy")
If IsDate(TextBox32) = True Then TextBox32 = Format(TextBox32, "dd.mm.yyyy")
s1.Activate
End Sub
kırmızı yerleri silip deneyin.

 

[dortmevsim]

Kırmızı yerleri sildim problem devam ediyor

 

[yanginci34]

Buyrun.
Ekli dosyayı görüntüle düzeltilmiş hali erhn.xlsm

 

[dortmevsim]

Çok teşekkürler elinize sağlık