VB help

I am taking an intro to VB class and I have been doing fine in it but I have an array homework assignment and just can't get it to work. I have an array that is reading in a file with three different couloms of information. I need to create another array to filter in the information record(2) and count how many times numbers come up. I just can not figure out how to get the info from the one array to another. Also for some reason my output is outing in triplicate. I can't figure it out either. I am in visual basic 10, so I might be posting in the wrong part and in a console project. Any help would be appreciated. Here is my code.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\temp\SoccerTeams.txt")
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(",")

Dim record As String() 'Define "record" as an array of strings.
Dim record_count As Integer = 0
Dim index As Integer = 0
Dim Teams As String()
Dim fname As String
Dim wrap As String
wrap = Chr(13) & Chr(10)
Dim Firstteam As Integer
Dim lname As String
Dim teamnumber As Integer
Dim teamname As String


Do Until MyReader.EndOfData
record = MyReader.ReadFields()







Teams(record(2)) = Teams(record(2) - 1) + 1
Teams(0) = Firstteam

fname = record(0)
Lname = record(1)
teamnumber = record(2)
If teamnumber = 1 Then
teamname = "Goal Getters"
ElseIf teamnumber = 2 Then
teamname = "The Force"
ElseIf teamnumber = 3 Then
teamname = "Top Guns"
ElseIf teamnumber = 4 Then
teamname = "Shooting Stars"
ElseIf teamnumber = 5 Then
teamname = "Midfield Monsters"
End If

TextBox2.Text = fname & lname & teamname & vbTab & TextBox2.Text
TextBox1.Text = Firstteam






Next

'record_count += 1

Loop
End Sub