Visual Basic

' Create an instance of StreamReader to read from a file.
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
    line = sr.ReadLine()
    Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close()

names = New List(Of String)
scores = New List(Of Integer)
Dim strFilename As String = Application.StartupPath & "\highscores.txt"
Dim srScores As New StreamReader(strFilename)
While Not srScores.EndOfStream
    Dim strRead As String = srSave.ReadLine
    ListBox1.Items.Add(strRead)
    Dim strSplit() As String = Split(strRead, ",")
    names.Add(strSplit(0))
    scores.Add(strSplit(1))
End While
srScores.Close()

names = New List(Of String)   ' vb doesn't like the new list of string? 
        scores = New List(Of Integer)
        Dim strFilename As String = Application.StartupPath & "\highscores.txt"
        Dim srScores As New StreamReader(strFilename)
        While Not srScores.EndOfStream
            Dim strRead As String = srSave.ReadLine
            ListBox1.Items.Add(strRead)
            Dim strSplit() As String = Split(strRead, ",")
            names.Add(strSplit(0))   ' doesnt like names.add?
            scores.Add(strSplit(1))
        End While
        srScores.Close()

New System.Collections.Generic.List(Of String)

names = New System.Collections.Generic.List(Of String)

Dim names = System.Collections.Generic.List(Of String)
names = New System.Collections.Generic.List(Of String)()

If you have knowledge, let others light their candles at it. 
Margaret Fuller (1810 - 1850)
<a href="http://www.codeproject.com/script/Articles/MemberArticles.aspx?amid=926797" target="_Blank">[My Articles]</a>  <a href="http://JacksonSoft.co.uk" target="_Blank">[My Website]</a> 

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))
            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

Dim scores(1 To 10) As Integer
Dim names(1 To 10) As String
Dim test1(1 To 10) As String
Dim test2(1 To 10) As Integer
Dim userscore As Integer
Dim username As String
Dim a As Integer
Dim b As Integer

Private Sub 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 Form_Load()
Open App.Path & "\files\high scores.txt" For Input As #1
a = 1
While Not EOF(1)
Input #1, names(a), scores(a)
a = a + 1
Wend
Close #1
Call highscore
End Sub
Private Sub highscore()
For i = 1 To 10
    List1.AddItem names(i)
    List2.AddItem scores(i)
Next
End Sub
Private Sub newscore()
List1.Clear
List2.Clear
For i = 1 To 10
    List1.AddItem test1(i)
    List2.AddItem test2(i)
    names(i) = test1(i)
    scores(i) = test2(i)
Next
Open App.Path & "\files\high scores.txt" For Output As #1
For i = 1 To 10
Print #1, names(i) & "," & scores(i)
Next
Close #1
End Sub

Imports System.IO

    Public Class Player
    Implements IComparable

    Private strName As String
    Private intHighScore As Integer

    Public Property Name() As String
        Get
            Return strName
        End Get
        Set(ByVal value As String)
            strName = value
        End Set
    End Property

    Public Property HighScore() As Integer
        Get
            Return intHighScore
        End Get
        Set(ByVal value As Integer)
            intHighScore = value
        End Set
    End Property

    Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo

        Dim OtherPlayer As Player = CType(obj, Player)
        Return Me.HighScore - OtherPlayer.HighScore

    End Function

    Shared Function GetAllPlayers(ByVal FileName As String) As List(Of Player)

        Dim lstPlayers As New List(Of Player)
        Dim strFilename As String = FileName
        Using srScores As New StreamReader(strFilename)
            While Not srScores.EndOfStream
                Dim newPlayer As New Player
                Dim strRead As String = srScores.ReadLine
                Dim strPlayerProperties() As String = Split(strRead, ",")
                newPlayer.Name = strPlayerProperties(0)
                newPlayer.HighScore = strPlayerProperties(1)
                lstPlayers.Add(newPlayer)
            End While
        End Using
        Return lstPlayers

    End Function

End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   Try
        lstPlayers = Player.GetAllPlayers(My.Settings.HighScoresFile)
        lstPlayers.Sort()
        For i As Integer = 0 To lstPlayers.Count - 1
            ListBox1.Items.Add(lstPlayers(i).Name & ", " & lstPlayers(i).HighScore)
        Next
    Catch ex As System.IO.IOException
        MsgBox("There was an error retrieving High Scores.")
    End Try

End Sub

lstPlayers = Player.GetAllPlayers(My.Settings.HighScoresFile)

writeline(x) = filename(y) + vbTab + format(frmtodayscafe.totalitemquantity(y)) + vbTab + FormatCurrency(filename1(y)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(y))