Проверьте пожалуйста код.

Option Explicit
Dim i As Integer: Dim j As Integer
Dim K As Integer: Dim N As Integer
Dim V As String: Dim Aij As String
Dim A(4, 4) As Integer
Private Sub UserForm_Activate()
ComboBox1.AddItem "RND": ComboBox1.AddItem "InputBox"
End Sub
'Заполнение массива
Private Sub CommandButton1_Click()
V = ComboBox1.Text
If V = "RND" Then
For i = 1 To 4
For j = 1 To 4
A(i, j) = Rnd(1) * 100
If A(i, j) Mod 2 = 0 Then A(i, j) = -A(i, j)
Next j
Next i
Else
For i = 1 To 4
For j = 1 To 4
Aij = "A(" + CStr(i) + "," + CStr(j) + ")"
A(i, j) = InputBox(Aij, "Введите значения элементов матрицы")
Next j
Next i
End If
'Вывод матрицы
K = 0
For i = 1 To 4
For j = 1 To 4
Controls(K).Text = A(i, j): K = K + 1
Next j
Next i
End Sub
Private Sub CommandButton2_Click()
'Определяем строки элементы которых упорядочны по возрастанию (с запоминанием номера строки)
S = ""
p = 0
For i = 1 To 3
    K = 1
    For j = 1 To 3 - 1
        If A(i, j + 1) > A(i, j) Then K = K + 1
    Next j
    If K = 3 Then
        p = p + 1
        C(p) = i
    End If
    Next i
For i = 1 To p
    S = S + " " + Str(C(i))
Next i
Label3.Caption = "Строки с элементами упорядочными по возрастанию = " + CStr(S)
End Sub