Создать двумерный массив A(5,5) / VBA

[RayaDemeneva]

Создать двумерный массив A(5,5). Вычислить сумму второго положительного и четвертого отрицательного элементов массива. Если таковых элементов в исходном массиве нет, то вывести сообщение об ошибке. Создать новый одномерный массив С, который состоит из элементов второй и четвертой строк исходного массива.

Вот сама программа проблема в сообщении об ошибке. Как правильно это сообщение написать с помощью MsgBox?

Private Sub CommandButton1_Click()
Dim A, B, J, I, C As Integer
Range("A1:Z50").Clear
For I = 1 To 5
For J = 1 To 5
Cells(I, J) = Int(Rnd * -30) + 15
Next J
Next I

For I = 1 To 5
For J = 1 To 5
If Cells(I, J) < 0 Then A = A + 1
If Cells(I, J) > 0 Then B = B + 1

If A = 3 Then
Cells(7, 1) = Cells(I, J)
A = A + 1
End If

If B = 6 Then
Cells(7, 2) = Cells(I, J)
B = B + 1
End If

Cells(7, 3) = Cells(7, 1) - Cells(7, 2)
Next J
Next I

C = 1

For I = 1 To 5
For J = 1 To 5
If I = 2 Then
Cells(10, C) = Cells(I, J)
C = C + 1
End If
Next J
Next I

C = 1

For I = 1 To 5
For J = 1 To 5
If I = 4 Then
Cells(11, C) = Cells(I, J)
C = C + 1
End If
Next J
Next I

End Sub