اجبار المستخدم على كتابة 5 احرف على الاقل فما فوق في textbox

[Mohmad83]

السلام عليكم اساتذتي 

احتاج كود  لاجبار المستخدم على ان لا يكتب كلمة تقل عن 5 احرف في textbox

وفي حال كتب اقل تظهر رسالة تنبيه.  بحيث يكون مرغم على كتابة نص من 5 احرف فما فوق

اي كحد ادنى 5 حروف   وكحد اعلى غير محدود

تحياتي لكم وامنياتي التوفيق الدائم 

ListBox.xlsm

[Ali Mohamed Ali]

وعليكم السلام -يمكنك استخدام هذا الكود

Private Sub TextBox1_AfterUpdate()
If Len(TextBox1.Value) < 5 Then
MsgBox "يجب عليك ادخال 5 حروف أو أكثر"
End If
End Sub

 

ListBox1.xlsm

[Mohmad83]

تماماً  هو المطلوب استاذنا القدير حل اكثر من رائع.  شكرًا جزيلاً.