Вычислить средний балл, полученный каждым студентом заданной группы, и средний балл этой группы, по каждому предмету

Private Sub CommandButton1_Click()
    Dim N As Integer, a As Integer, s As Integer, j As Integer
    Dim b As Integer, c As Integer, i As Integer
    N = TextBox1.Text
    For i = 1 To M
        If Cells(i, 1) = N Then
            ListBox1.AddItem "i - 1"
            ListBox1.List(i - 1, 1) = Cells(i, 2)
            a = Cells(i, 3)
            s = 0
            Do While a > 0
                b = a Mod 10
                Select Case b
                    Case Is = 5
                        c = 10 + Rnd(3)
                    Case Is = 4
                        c = 7 + Rnd(3)
                    Case Is = 3
                        c = 4 + Rnd(3)
                    Case Is = 2
                        c = 0 + Rnd(3)
                End Select
                s = s + c
                a = a \ 10
            Loop
            j = Len(Cells(i, 3)) + Len(Cells(i, 4))
            s = s + 8 * (Len(Cells(i, 4) - Len(Replace(Cells(i, 4), "З", ""))) / Len("З"))
            ListBox1.List(i - 1, 2) = s / j
        End If
    Next i
End Sub
 
Private Sub UserForm_Activate()
    Dim M As Double
    M = 1
    Do While Cells(M, 1) > " "
        M = M + 1
    Loop
End Sub