Сортировка текста в RichTextBox

Public Class Form1
    Dim otv As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kstr As Int32 = RichTextBox1.Lines.Length - 1 'Кол-во строк - 1
        Dim a As Int32 = 0
        Dim c As Int32 = 0 ' Прошдое значение a
        Dim max As Int32 ' Максимальное значение
        Dim maxs As Int32 ' Номер строки с максимальным значением
        Dim nstr As Int32 'Номер обрабатываемой строки  
        Dim b As Int32 ' нужна для отделения числа и строки
 
        For i = 0 To kstr ' Ищем максимальное значение
            b = InStr(RichTextBox1.Lines(i), " ") 'Находим первый пробел
            If a < Microsoft.VisualBasic.Left(RichTextBox1.Lines(i), b) Then 'Если число больше, чем в a
                a = Microsoft.VisualBasic.Left(RichTextBox1.Lines(i), b) 'Записываем число в a
                maxs = i 'Записываем номер строки с максимальным числом
            End If
        Next
        max = a 'Чтобы а было максимальным
 
        For t = 0 To kstr - 1 'Перебираем все строки -1 т.к. максимальную уже нашли
            For i = 0 To kstr 'Здесь аналогично ищем меньшее
                b = InStr(RichTextBox1.Lines(i), " ")
                If a > Microsoft.VisualBasic.Left(RichTextBox1.Lines(i), b) And Microsoft.VisualBasic.Left(RichTextBox1.Lines(i), b) > c Then
                    a = Microsoft.VisualBasic.Left(RichTextBox1.Lines(i), b)
                    nstr = i
                End If
            Next
            c = a 'Прошлое меньшее, чтобы найти больше его
            If otv = "" Then ' Если это первая запись, то не переводим каретку на новую строку
                otv &= RichTextBox1.Lines(nstr)
            Else
                otv &= vbNewLine & RichTextBox1.Lines(nstr)
            End If
            a = max 'Чтобы а было максимальным
        Next
 
        otv &= vbNewLine & RichTextBox1.Lines(maxs) 'Последним записываем максимальное значение
        RichTextBox1.Text = otv '  Выводим ответ
    End Sub
End Class

        Dim D() As String = Split(RichTextBox1.Text, vbLf) 'Массив со строками из rtb
        Dim K() As Integer ' Массив с "цифрами" 
        Dim T() As String ' Массив с "буквами"
        Dim tmpS() As String 'Временный массив, чтоб разбить строку на цифры и буквы
        Dim Result_Text As String 
 
        ReDim K(UBound(D))
        ReDim T(UBound(D))
 
        For i = 0 To D.Length - 1
            tmpS = Split(D(i), " - ") 'разбираем строку
            K(i) = CInt(tmpS(0)) 'сюда цифры
            T(i) = tmpS(1)'сюда буквы
        Next
 
        Array.Sort(K, T) 'сортируем связанные массивы 
 
        For i = 0 To T.Length - 1
            Result_Text += K(i) & " - " & T(i).ToString & vbLf 'Собираем строки обратно 
        Next
        RichTextBox1.Text = Result_Text

K(i) = CInt(tmpS(0))

        For i = 0 To T.Length - 1
            If i = T.Length - 1 Then
                Result_Text += K(i) & " - " & T(i).ToString
            Else
                Result_Text += K(i) & " - " & T(i).ToString & vbLf
            End If
 
        Next