[Ahmads]

تشغيل البرنامج يحتاج وجود الميزان

لدي اقتراحات

الاقتراح الاول
التعديل في InputLen مثل 10 او غيرها

الاقتراح الثاني
تضع شرط لعرض النتيجه وهو عندما تكون القيمه صفر او اكبر من 100

كود :

If Val(c)=0 Or Val(c)>=100 Then
    'عرض النتيجه
End If

المقصود بالرقم 100 هو الوزن القليل الغير مقبول وزنه، وقد ترى انت بحكم عملك رقم اخر يكون الحد الادنى الذي يمكن وزنه

ويبدو لي ان الاقتراح الثاني مناسب

ارجو تصوير فيديو جديد للنتيجه