Задача с кличками собак

[grishkagrigoriev]

Всем привет!

Есть массив A - с кличками собак.
Есть массив B - с очками, полученными каждой из собак на конкурсе.

Очки некоторых собак записываются с минусом.

Есть массивы C, D.
В эти массивы нужно вывести клички собак и их очки c такой сортировкой, чтобы сначала выходили собаки с положительными очками, а затем - с отрицательными.

Примерно так:

Дог Хантер Стенли Джордж Мигало Стаббер
20 25 -9 12 -8 14

После:
Дог Хантер Джордж Стаббер Стенли Мигало
20 25 12 14 -9 -8

Все данные заводятся в текстбоксы.

Должно получиться что-то типа такого:

Безымянный.jpg

Мой код:

Dim a(5), b(5), i, z As Integer, d(5), c(5) As String
        a(1) = TextBox6.Text
        a(2) = TextBox7.Text
        a(3) = TextBox8.Text
        a(4) = TextBox9.Text
        a(5) = TextBox10.Text
        c(1) = TextBox1.Text
        c(2) = TextBox2.Text
        c(3) = TextBox3.Text
        c(4) = TextBox4.Text
        c(5) = TextBox5.Text
        For i = 1 To 5
            For j = 1 To 4
                If a(j) < a(j + 1) Then
                    z = a(j)
                    a(j) = a(j + 1)
                    a(j + 1) = z
                End If
            Next j
        Next i
        For i = 1 To 5
            TextBox15.Text = a(1)
            TextBox14.Text = a(2)
            TextBox13.Text = a(3)
            TextBox12.Text = a(4)
            TextBox11.Text = a(5)
        Next
        TextBox20.Text = c(1)
        TextBox19.Text = c(2)
        TextBox18.Text = c(3)
        TextBox17.Text = c(4)
        TextBox16.Text = c(5)
    End Sub

Данный код правильно сортирует очки собак, но клички пишет в том же порядке, что и в массиве А.

Помогите!

[Скрипт]

grishkagrigoriev, сортируйте ещё и массив "B": сделайте две переменные "z_1" и "z_2". Одну переменную используйте для массива "A", а вторую для массива "B". Массив "B" сортируйте, когда возникает необходимость в сортировке массива "A", т.е. здесь:

    If a(j) < a(j + 1) Then
        Z = a(j)
        a(j) = a(j + 1)
        a(j + 1) = Z
    End If