You have two nested loops:

Code:
For row = 0 To 5
For col = 0 To 2
...
'DISPLAY RESULTS
lstdisplay.AddItem (names(row) & " " & SCORES(row, col) & ...

Next 'ROW
Next 'COL


Your end-comment is not correct, in fact you should write:

Code:
lFor row = 0 To 5
For col = 0 To 2
...

'DISPLAY RESULTS
lstdisplay.AddItem (names(row) & " " & SCORES(row, col) & ...

Next 'COL
Next 'ROW
but it works, since you have commented varable names ROW and COL.

As you can see, for each row you invoke AddItem 3 times - for each COL once.