sort items columns in listbox.Sort columnA and columnB by columnB value

Dim Separator() As String = {" is "}
        Dim SomeArray(ListBox1.Items.Count, 1) As Integer

        For Count As Integer = 0 To ListBox1.Items.Count - 1
            Dim Splitted() As String = ListBox1.Items(Count).ToString.Split(Separator, StringSplitOptions.None)
            SomeArray(Count, 0) = CLng(Splitted(0))
            SomeArray(Count, 1) = CLng(Splitted(1))
            ColumnA.AddRange(New Integer() {SomeArray(Count, 0)})
            ColumnB.AddRange(New Integer() {SomeArray(Count, 1)})
        Next


        'ColumnB.Sort()


        For I As Integer = 0 To ColumnA.Count - 1
            ListBox2.Items.Add(ColumnA(I).ToString & "     " & ColumnB(I).ToString)
           
        Next