Помогите сделать задачу в акцессе с помощь VBA очень срочно нужно

[Dmitriyhare]

Пожалуйста очень срочно надо, помогите!


Задача №2
Написать программу, позволяющую рассчитать средний балл студента по результатам сдачи
трех экзаменов. Предусмотреть вывод сообщений о назначении стипендии в размере 400 р., если средний
балл не менее 4 и студент не получил тройку ни на одном экзамене. В противном случае стипендия не
начисляется.


не могу сделать так что бы программа не считал средний бал если есть оценка 3

Выглядит так М поле0 оценка 5 вводим
И поле2 оценка 4 вводим
Ф поле4 оценка 3 вводим

средний балл 4

кнопка 14 расчет
кнопка 12 очистить

я написал так но не могу что бы сравнивало оценки больше 3

Private Sub кнопка14_Click()
Dim M As Single, I As Single, F As Single, S As Single
Dim Sr_ball As Single
M = поле0
I = поле2
F = поле4
S = (M + I + F) / 3
Поле6 = S

Sr_ball = поле6
If Sr_ball >= 4 Then
MsgBox ("Ваша стипендия 400 рублей")
Else
MsgBox ("Ваша стипендия 0 рублей")
End If
End Sub


Private Sub Кнопка10_Click()
Поле0 = ""
Поле2 = ""
Поле4 = ""
Поле6 = ""
End Sub