I got about 7 hours left to finish this code so any help is welcome.

I am using Microsoft Visual Basic 2015, and I need it to pull out everyone in an array with the same username, and tally their points up, than insert that information into another array with their First Name and Last Name and Gender and Agegroup. I'm pulling the first arrays info from a csv.
---------------------------------------------------------------------------------------------------------------------------------------------------
Module modArray
    Public Structure Athletes
        Public UserName As String
        Public LastName As String
        Public FirstName As String
        Public Gender As String
        Public Points As String
        Public AgeGroup As String
End Structure
Public TopAthletes(20) As Athletes
Public Sub ReadAthletesArray()
        'Find csv file
        Dim FILE_NAME As String = "C:\Users\Jurid\Desktop\TopAthletes\LoadArray.csv"
        Dim RecordPosition As Integer = 0
        'How to read csv
        If System.IO.File.Exists(FILE_NAME) = True Then
Dim objReader As New System.IO.StreamReader(FILE_NAME)
Do While objReader.Peek() <> -1
                Call LoadWaitingList(objReader.ReadLine(), RecordPosition)
RecordPosition = RecordPosition + 1
            Loop
            objReader.Close()
            ReDim Preserve TopAthletes(RecordPosition)
Else
MsgBox("File Does Not Exist")
End If
End Sub
    
Public AthleteArray() As String
    Public Sub LoadWaitingList(ByVal Newrecord As String, ByVal IndexPosition As Integer)
        AthleteArray = Split(Newrecord, ",", 6)
With TopAthletes(IndexPosition)
            .UserName = AthleteArray(0)
            .Points = AthleteArray(1)
            .LastName = AthleteArray(2)
            .FirstName = AthleteArray(3)
            .Gender = AthleteArray(4)
            .AgeGroup = AthleteArray(5)
End With
End Sub

Public Function StringValue(ByVal IndexValue As Integer) As String
        With TopAthletes(IndexValue)
            StringValue = .UserName & "," & .Points & "," & .LastName & "," & .FirstName & "," & .Gender & "," & .AgeGroup
        End With
    End Function

Public Sub AthletePoints()
        Dim UserName As String
        Dim UserPoints() As Integer
For i = 0 To TopAthletes.GetUpperBound(0) - 1
            UserName = TopAthletes(i).UserName
            For o = 0 To TopAthletes.GetUpperBound(0) - 1
                If UserName = TopAthletes(o).UserName Then
                    UserPoints(i) = TopAthletes(o).Points + UserPoints(i - 1)
                End If
            Next
        Next
    End Sub

End Module
----------------------------------------------------------------------------------------------------
That's the current code.
Ask if you need anymore