aşağıdaki kodu sayın @Oğuz Türkyılmaz konusundaki dosyasında kullanmıştı, ihtiyacınızı karşılayabilir

TarihKutusu.MaxLength = 10



Select Case TarihKutusu.SelStart

    Case Is = 2, 5

    TarihKutusu.SelText = "."

End Select



If Len(TarihKutusu) = 10 And Not IsDate(TarihKutusu) Then

    

    TarihKutusu = ""

    MsgBox "Hatalı tarih girdiniz, lütfen kontrol ediniz.", Title:="KT GRUP Poliçe Takip"

    Exit Sub

    

End If