كتابة التاريخ بشكل إحترافي

أقدم لكم اليوم طريقة لكتابة التاريخ على TextBox بطريقة إحترافية وذلك بإستعمال الدالة (Len):
من المعروف أن كتابة التاريخ يكتب عادة في TextBox بهذه الطريقة : اليوم ثم نكتب/ ثم الشهر ثم / ثم السنة
لكن أنا أريد كود بمجرد الإنتهاء من كتابة اليوم يضع لـ :"   /  "(سلاش) و كذلك عند الإنتهاء من كتابة الشهر . وهذا كله لإختصار الوقت و التقليل من الأخطاء عند إدخال التواريخ
كيف يتم ذلك  ؟.
بعد إدراج يوزر فورم و TextBox  كما ههو موضح في الصورة


ثم نذهب للخصائص ومن خلال الخاصية MAXLength نضع الرقم 10 يعني طول النص هو 10 حروف



ثم نقوم بإدراج الكود التالي
Private Sub TextBox1_Change()
Dim x As Integer
x = Str(Len(TextBox1.Text))
If x = 2 Then
TextBox1.Text = TextBox1.Text & "/"
End If
If x = 5 Then
TextBox1.Text = TextBox1.Text & "/"
End If
End Sub

وشكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

شكرا استاذنا الفاضل على مجهودك الاكثر من رائع
اتمنا من الله ان يجازيك عنا خيرا

انا بجد استفدت منك كتير واتمنا انى ققدر ارد لك الجميل