[احمد عبد الحكيم]

اخى تقريبا هذا الفيديو يفيدك
https://www.youtube.com/watch?v=IfBNDzVpeX4

وممكن هذا الكود ايضا يفيدك
On Error GoTo a
Dim a, b, c, d As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text

If a + b + c + d >= 90 Then Text5.Text = "ممتاز"
If a + b + c + d >= 80 Then Text5.Text = "جـيـد جــداً"
If a + b + c + d >= 70 Then Text5.Text = "جـــيـــد"
If a + b + c + d >= 50 Then Text5.Text = "مقبول"
If a + b + c + d >= 90 Then Text5.Text = "رااااسب"
End If
Exit Sub
a:
MsgBox ("عفوا ، لم تقم بكتابة أي أرقام. الرجاء إعادة المحاولة"), vbCritical, "خــطــأ"
End Sub