Расчет премии вводимой с формы - VBA/Excel

Формулировка задачи:

Помогите пожалуйста привести код в рабочее состояние. Исправляя одну ошибку он начинает выдавать другую(синтаксис вроде верный проверял)! Он мне выводит то не правильно if сделал, то теперь For!

Private Sub CommandButton1_Click()
Dim s As Long, k As Long
Dim p As Double
If ComboBox1.Value = "" Or TextBox1.Text = "" Then
MsgBox "Введены не все данные."
Exit Sub
Else: p = CDbl(TextBox1.Text)
 
For s = 2 To ActiveSheet.UsedRange.Offset.Row + ActiveSheet.UsedRange.Rows.Count - 1
ActiveSheet.Cells(s, "D").Value = " "
If (Cells(s, "C").Value2 >= 3.5) Then
k = k + Cells(s, "C")
Else: MsgBox "Средний балл всех студентов меньше чем 3,5"
If (k > 0) Then
p = p / k
End If
Next s
For s = 2 To ActiveSheet.UsedRange.Offset.Row + ActiveSheet.UsedRange.Rows.Count - 1
If (Cells(s, "C").Value2 >= 3.5) Then
Cells(s, "D").Value2 = p * Cells(s, "C")
End If
Next s
End If
End Sub
 
Private Sub CommandButton2_Click()
End
End Sub
 
Private Sub UserForm_Initialize()
Dim c As Integer
For c = 1 To Worksheets.Count
With ComboBox1
.AddItem Worksheets(c).Name
End With
Next c
Exit Sub
End Sub

Вот вроде скинул файл где форма и таблица, а так же сам код который нужно исправить.Премия.rar

Решение задачи: «Расчет премии вводимой с формы»

textual
                            Листинг программы 
                        

                            for i=1 to n 
  if blablabla then
      чтототам
      if трампампам then
          чтототамтрампампам
      end if
  end if
next i
                        