[ناجي إبراهيم]

السلام عليكم...

أولاً بما أن الدالة IsNumeric تختبر ما إذا كان المحتوى عدداً أم لا، فإنه حتى عدم وجود نص في الـ TextBox (أي إذا لم تدخل شيئاً) يعتبر قيمة غير عددية.

ثانياً بما أن الدالة IsNumeric تعطي True في حالة كون المحتوى عدداً فإن وجود Not يعني: إذا لم يكن المحتوى عدداً...

يمكنك حذف Not مع نقل جزء Else إلى Then و نقل جزء Then إلى Else.

كود :

Dim Mark As Double

If IsNumeric(TextBox1.Text) Then
    Mark = CDbl(TextBox1.Text)
    If (Mark < 0) Or (Mark > 100) Then
        MsgBox("القيم المقبولة بين صفر و مائة")
    Else
        Select Case Mark
            Case Is < 50
                TextBox2.Text = "راسب"
            Case Is < 65
                TextBox2.Text = "مقبول"
            Case Is < 75
                TextBox2.Text = "جيد"
            Case Is < 85
                TextBox2.Text = "جيد جداً"
            Case Else
                TextBox2.Text = "ممتاز"
        End Select
    End If
Else
    MsgBox("الرجاء إدخال قيمة عددية")
End If

و السلام عليكم.