Напечатать список группы и средний балл каждого студента

Private Sub Command1_Click()
Const n = 10
Dim s(n)
Cls
For i = 1 To n
s(i) = "FIO" & i & "*" & vbTab
For j = 1 To 5
 s(i) = s(i) & Int(Rnd * 4) + 2 & "*"
Next j
Next i
'=========================
For i = 1 To n
s(i) = Mid(s(i), 1, Len(s(i)) - 1)
 
s1 = Mid(s(i), InStr(1, s(i), "*") + 1)
a = Split(s1, "*")
c = 0
For j = 0 To 4
c = c + Val(a(j))
Next j
If c > 0 Then c = c / 5
s2 = s(i) & vbTab & " ср.балл   " & c
 
Print s2
Next i
 
End Sub

Sub sb_StuBall()
Dim lSum&
Dim i%
Dim sStr$, sStu$, sArr$()
 
    sStr = "Stu_1*1*2*3*4*5*Stu_2*1*2*3*4*5*Stu_3*1*2*3*4*5*Stu_4*1*2*3*4*5"
 
    sStr = sStr & "*" ' обязательно добавляем финальную *, если ее нет
    sArr = Split(sStr, "*")
 
    For i = LBound(sArr) To UBound(sArr)
        Select Case IsNumeric(sArr(i))
            Case True
                lSum = lSum + sArr(i)
            Case False
                sStu = sStu & " - " & (lSum / 5) & vbCrLf & sArr(i)
                lSum = 0
        End Select
    Next
    lSum = 0
 
    sStu = Mid(sStu, Len(" - " & (lSum / 5) & vbCrLf) + 1)' отрезаем ненужное начало ...
    ' ... длиной с наш разделитель - копируем код просто, чтобы не вычислять - сколько отрезать
 
    Debug.Print sStu
    Stop
End Sub