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

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