How to sort listbox rows using first item in VB?

Dim STUDENT_FILE As String = ("C:\Users\Windows 7 User\Desktop\Stock.txt")
        Dim objReader As New System.IO.StreamReader(STUDENT_FILE)

        Dim strDataline As String 'Data line
        Dim strArr(2) As String ' Array for bits of line
        Dim blfound As Boolean
        ListBox1.Items.Clear()

        Do While objReader.Peek() <> -1 'read the file till the end.
            strDataline = (objReader.ReadLine()) ' read line and store into variable
            strArr = strDataline.Split(",") 'Split line and put into array
            ListBox1.Items.Add(strDataline)
            blfound = True

        Loop
        MsgBox("Stock data has been loaded")
        objReader.Close()
        If blfound = False Then MsgBox("stock data has not been found")

         'Bubble sort'
        Dim arr(ListBox1.Items.Count - 1) As String
        Dim i As Integer

        For i As Integer = 0 To arr.Length - 1


            arr(i) = CStr(ListBox1.Items(i))
        Next
        For i As Integer = 0 To arr.Length - 1
            For j As Integer = 0 To arr.Length - 2 - i
                If String.Compare(arr(j), arr(j + 1)) > 0 Then
                    Dim temp As String = arr(j)
                    arr(j) = arr(i)
                    arr(i) = temp
                End If
            Next
        Next
        StringBubbleSort(arr)
        ListBox1.Items.AddRange(arr)