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

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

     z = c(j)
     c(j) = c(j + 1)
     c(j + 1) = z

Dim a(5) As intefer
Dim b(5) As integer
Dim i, As integer
Dim z As variant
Dim d(5) as String 
Dim c(5) As String