Visual Basic

Imports System.IO

Public Class Form1
    Dim scores = New System.Collections.Generic.List(Of String)
    Dim names = New System.Collections.Generic.List(Of String)
    Dim test1(0 To 10) As String
    Dim test2(0 To 10) As Integer
    Dim userscore As Integer
    Dim username As String
    Dim a As Integer
    Dim b As Integer
    Dim i As Integer
    Dim strFilename As String = ("High Scores.txt")



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Call highscore()
        names = New System.Collections.Generic.List(Of String)
        scores = New System.Collections.Generic.List(Of Integer)
        Dim srScores As New IO.StreamReader(strFilename)
        While Not srScores.EndOfStream
            Dim strRead As String = srScores.ReadLine
            ListBox1.Items.Add(strRead)
            Dim strSplit() As String = Split(strRead, ",")
            names.Add(strSplit(0))
            scores.Add(strSplit(1))
        End While
        srScores.Close()


    End Sub

Private Sub comtest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comtest.Click
    username = Text1.Text
    userscore = Val(Text2.Text)
    For i = 1 To 10
        a = scores(i)
        If userscore >= a Then
            test1(i) = username
            test2(i) = userscore
            For b = i + 1 To 10
                test1(b) = names(b - 1)
                test2(b) = scores(b - 1)
            Next
            Call newscore()
            Exit Sub
        End If
        test1(i) = names(i)
        test2(i) = scores(i)
    Next
End Sub
Private Sub highscore()
    For i = 1 To 10
        ListBox1.Items.Add(names(i))      'this always comes up with an error saying argument out of range
            List2.Items.Add(scores(i))
    Next
End Sub
Private Sub newscore()  ' write
    ListBox1.ClearSelected()
    List2.ClearSelected()
    For i = 1 To 10
        ListBox1.Items.Add(test1(i))
        List2.Items.Add(test2(i))
        names(i) = test1(i)
        scores(i) = test2(i)
    Next
    Dim objWriter As New System.IO.StreamWriter(highScoresFile)

    For i = 1 To 10
        objWriter.Write(names(i) & "," & scores(i))

    Next
    objWriter.Close()
End Sub