1. Проверка за отлична оценка

Sub Demo()
    Dim grade As Integer
    grade = 4

    If grade >= 5 Then
        Debug.Print "Excellent"
    End If

End Sub