Text Box'a tarihi yazamıyorum

[siar]

Merhabalar, aşağıda görülen kodu bir text box da kullanıyorum. Fakat tarihi yazamıyorum. Tek bir karakter fazlasına izin vermiyor. Nasıl düzeltebilirim acaba? Teşekürlerimle,

Private Sub UserForm_Initialize()
With TextBox5
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "__.__.____"
.SelStart = 0
.SelLength = 1
End With
With TextBox5
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "__.__.____"
.SelStart = 0
.SelLength = 1
End With
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz.

Private Sub UserForm_Initialize()
With TextBox5
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "__.__.____"
.SelStart = 0
.SelLength = 1
End With
End Sub

 

[siar]

maalesef yine olmadı. ekte örneği ilave ediyorum. Tşk.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
ilk yolladığım kodların aynisini yazmamışsınız.!!!!
Aşağıdaki kodlarla ilk yolladığım kodlar ayni..

Private Sub UserForm_Initialize()
With TextBox5
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "__.__.____"
.SelStart = 0
.SelLength = 1
End With
End Sub