Работа с обработкой строк. - VB

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

Дана задача: Задан список группы и пять оценок каждого студента.Фамилии от оценок и оценки друг от друга отделены символом "\". Напечатать список группы и средний балл студента.
Мой вопрос таков: как из строки студента с оценками выделить именно эти оценки и затем посчитать из них средний балл????

Решение задачи: «Работа с обработкой строк.»

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

                            Public Function piece(str As String, position As Integer) As String
Dim Tempstr() As String
If position >= 1 Then
    Tempstr = Split(str, "*")
    piece = Tempstr(position - 1)
End If
End Function

Private Sub Command1_Click()
Dim r As String
r = "petea*5*4*3*5*3"
MsgBox piece(r, 3)
End Sub

                        