تحديد عدد الاحرف داخل مربع نص

لتحديد عدد الاحرف داخل مربع النص نقوم بعمل الاتى :
1 - نقوم بانشاء مشروع جديد من نوع standard .
2 - نقوم بانشاء زر جديد على الفورم command1 و نضبط خاصيه caption له الى اختبر
3 - تقوم بانشاء مربع نص جديد text1 و نمسح المكتوب داخل الخاصيه text
4 - نضغط مرتين على الزر لفتح نافذه الكود و نكتب فيه الكود التالى :
Dim X As String
X = Text1.Text
If Len(X) >= 8 Then
MsgBox "عدد احرف النص اكبر من او يساوى 8 احرف"
Text1.Text = ""
End If

شرح الكود :
السطر الاول Dim X As String
و هو يقوم بتعريف البرنامج على متغير جديد من نوع String و اسمه X
السطر الثانى X = Text1.Text
و هو يقوم تعريف قيمه المتغير X و هى القيمه الموجوده داخل text1.text
السطر الثالث If Len(X) >= 8 Then
و هو يقوم باختبار عدد احرف المتغير X هل هى اكبر من او تساوى 8 احرف ام لا
السطر الرابع MsgBox "عدد احرف النص اكبر من او يساوى 8 احرف"
و هو يقوم باظهار هذه الرساله فى حاله ان نتيجه اختبار عدد الاحرف كانت اكبر من او تساوى 8 احرف
السطر الخامس Text1.Text = ""
يقوم بافرغ مربع النص من محتواه لاعاده الكتابه فيه من جديد

اتمنى لكم التوفيق و الاستفاده من منتدى vb6