первый раз в VBA

[ГОСЕАН]

Автоматизация измерений, контроля и испытаний

Private Sub CommandButtonlClick()
Dim A(l To 50) As Byte
Dim G(l To 10, 1 To 10) As Byte
Dim P(1 To 10) As Byte
d = 0
h = 0
m = TextBoxl
t = 0
For k1 = 1 To m
t = t + kl - 1
Next kl
kl = 0
TextBox2 = t
TextBox3 = 2 ^ t
For k = 1 To 2 ^ t
For i = 1 To m
Cells(k * (m + 2) - m, i + 2) = i
Cells(k * (m + 2) - m + i, 2) = i
Cells(k * (m + 2) - m + i, i + 2) = "x"
Next i
Cells(k * (m + 2) - m, m + 3) = "К"
For i = 1 To m
For j = i + 1 To m
kl = kl + l
G(i, j) = A(kl)
Cells(k * (m + 2) - m + i, j + 2) = G(i, j)
If G(i, j) = l Then
G(i, j) = 0
Else: G(j, i) = 1
End If
Cells(k * (m + 2) - m + j, i + 2) = G(j, i)
Nextj
Next i
kl = 0
For i = 1 To m
For j = l To m
If i <> j Then
P(i) = P(i) + G(i, j)
End If
Next j
Cells(k * (m + 2) - m + i, m + 3) = P(i)
Next l
For i = 1 To m
For j = i + 1 To m
If P(i) = P(j) Then
h = l
End If
Next j
P(i) = 0
Next i
If h = 1 Then
d = d + 1
h = 0
End If
If A(l) = 1 Then
Ь = 1
а(1) = 0
For Z = 2 To t
If b = l Then
If A(Z) = l Then
A(Z) = О
Else:
b = 0
A(Z) = l
End If
End If
Next Z
Else
A(l) = 1
End If
Next к
TextBox4 = d
TextBox5 = 2 ^ t - d
End Sub

где ошибка. и как правильно сделать
Подсчет всевозможных решений экспертов. как я понял требуется вероятность....
как правильно реализовать?