عند ادخال درجة اصغر من الدرجة الموجودة فى حقل العربى يعطى رسالة تحذيرية

السلام عليكم

عندى حقل اسمة عربى واسمة على الفورم فى مربع النص اسمة ar2 لغاية كدة مفيش مشاكل انا كل اللى طالبة انه عند ادخال درجة اصغر من الدرجة الموجودة فى حقل العربى يعطى رسالة تحزيرية ولا يقبل الدرجة

اما اذا ادخلت درجة اكبر يقوم بادخالها ووعملت الكود فعلا

اههو

--------

ar2field = Me.ar2
If ar2field < [عربى] Then
MsgBox "عفوا لا يقبل الدرجة الاصغر", vbCritical, "رسالة تحزيرية"
Cancel = True
Me.Undo
Else
Me.ar2 = [عربى]
End If

----------------------

لكن بعد تجربة الكود وجد ان الجزء بعد else لا يتم تنفيذة اى انه لا يقبل الدرجة الاكبر ويقوم ايضاً باخراج الرسالة فكيف اعدل هذا الكود

منتظر اهل الخبرة