مساعده

Private Sub Text1_LostFocus()
Dim i As Integer
If Len(Text1.Text) < 3 Then
i = MsgBox("plz write more than 3 nos", vbInformation, "input error !")
End If
End Sub

تحية وبعد .................

الاخ romantic_boy اجابته صح بس ناقصة افعل نفس الكود اذا وصلت عند if اعمل التالي

if len(text1.text)<3 or len(text1.text)>3 then

msgbox

"الرجاء ادخال 3 ارقام"

طبعا السطرين السابقين في نفس السطر

end if

..... غيرت في الشرط لانك لا تريد من المستخدم ادخال اكثر او اقل من 3 ارقام (صح) :D

خدمة ......

مع تحيات

المبرمج الطيب :)

المبرمج الطيب الحمد لله انا في غني ان اقول لك ان هذا الكود اتفه من ان اخطأ فيه و لو ان الكمال لله وحده لكن يبدوا انني قرأت علي استعجال و ظننت أنه لا يريد من المستخدم كتابة أكثر من 3 حروف و الدليل في ال msgbox اقرأها و ستعرف و علي العموم شكرا علي ردك وأي خدمة :)