Textbox tarih girişi hk.

[OoParadiSeoO]

Arkadaşlar merhaba,
aşağıdaki kodlar ile textbox a tarih girişi yapabiliyorum fakat tarihi yazarken yazdığım bir rakamı silip değiştirmek istediğimde __/__/____ karakterleride siliniyor. Ben rakamlarda değişiklik yapsam dahi bu formatın sabit kalmasını istiyorum. Yardımcı olabilirmisiniz?



Private Sub TextBox1_Change()
With TextBox1
.SelLength = 1
If .SelText = "/" Then
.SelStart = .SelStart + 1
.SelLength = 1
End If
End With
End Sub
Private Sub UserForm_Initialize()
With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "__/__/____"
.SelStart = 0
.SelLength = 1
End With
End Sub