Отсортировать в listbox-е значения по возрастанию используя кнопку "Определить"

Private Sub BОпределение_Click(sender As System.Object, e As System.EventArgs) Handles BОпределение.Click
        LBСортировка.Items.Clear()
        With Справочник
            Dim u As String
            For i = 0 To UBound(.ДеловыеКонтакты)
                For j = 1 To UBound(.ДеловыеКонтакты)
                    If .ДеловыеКонтакты(j).ФИО < .ДеловыеКонтакты(j - 1).ФИО Then
                        LBСортировка.Items.Add(.ДеловыеКонтакты(i).ПисатьКакСтроку())
                        u = .ДеловыеКонтакты(j).ФИО
                        .ДеловыеКонтакты(j).ФИО = .ДеловыеКонтакты(j - 1).ФИО
                        .ДеловыеКонтакты(j - 1).ФИО = u
                    End If
                Next
            Next
        End With
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim lst As New List(Of String)
    Dim s As String = ""
    For Each ss In Справочник.ДеловыеКонтакты
        s = ss.ПисатьКакСтроку
        lst.Add(s)
    Next
    ListBox1.Items.AddRange(lst.ToArray)
    ListBox1.Sorted = True
End Sub