как сделать интерфейс где ошибка

Dim a(10)
Private Sub CommandButton1_Click()
For i = 1 To 10
a(1) = TextBox1
TextBox1 = a(1)
a(2) = TextBox2
TextBox2 = a(2)
a(3) = TextBox3
TextBox3 = a(3)
a(4) = TextBox4
TextBox4 = a(4)
a(5) = TextBox5
TextBox5 = a(5)
a(6) = TextBox6
TextBox6 = a(6)
a(7) = TextBox7
TextBox7 = a(7)
a(8) = TextBox8
TextBox8 = a(8)
a(9) = TextBox9
TextBox9 = a(9)
a(10) = TextBox10
TextBox10 = a(10)
Next i
For i = 1 To 10
If i Mod 2 = 0 Then
a(i) = TextBox11
Else
a(i) = TextBox12
End If
Next i
For i = 1 To 5
a(i) = TextBox13
Next i
For j = 1 To 4
g = j
Z = a(i)
For f = j To 4
If Z < a(f + 1) Then Z = a(f + 1): g = f + 1
Next f
If Z <> a(j) Then a(g) = a(j): a(j) = TextBox18: a(j) = Z
Cells(5, j) = a(j)
Next j
If g <> 5 Then TextBox14 = TextBox14
For i = 1 To 5
a(i) = TextBox15
Next i
For j = 1 To 4
g = j
Z = a(i)
For f = j To 4
If Z < a(f + 1) Then Z = a(f + 1): g = f + 1
Next f
If Z <> a(j) Then a(g) = a(j): a(j) = TextBox19: a(j) = Z
a(j) = TextBox16
Next j
If g <> 5 Then TextBox17 = TextBox17
End Sub
 
Private Sub UserForm_Click()
 
End Sub