TextBox özelliğini döngü yardımı ile diğer TextBox'lara uygulama

[Believing]

Sayın Formdaş Arkadaşlar,

UserForm'da 24 adet olarak bulunan TextBox'lara tarih formatlı kayıt yaptırıyorum.
Aşağıdaki TextBox1 için yazılı olan prosedürü döngü ile tüm TextBox'lara uygulamak için kodu nasıl revize etmeliyim?

Private Sub TextBox1_Change()
Select Case TextBox1.SelStart
Case Is = 2, 5
TextBox1.SelText = "."
End Select
End Sub

Saygılarımla,

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.
Ben 3 tanesini yaptım diğerlerini de siz ekleyin.

Private Sub TextBox1_Change()
    txt_change TextBox1
End Sub

Private Sub TextBox2_Change()
    txt_change TextBox2
End Sub

Private Sub TextBox3_Change()
    txt_change TextBox3
End Sub

Sub txt_change(txt As Control)
    Select Case txt.SelStart
    Case Is = 2, 5
        txt.SelText = "."
    End Select
End Sub

 

[Believing]

Sayın Muzaffer Ali Bey,

Çok teşekkür ederim yardımınız için