Сформировать вектор b(j) и найти произведение элементов матрицы - VB

Формулировка задачи:

Сформировать вектор B=(b(1),b(2),...,b(m)),каждый элемент которого равен наибольшему по модулю значению,не превосходящему заданного K,В СООСТВЕТСТВУЮЩЕМ СТОЛБЦЕ МАТРИЦЫ А.Вычислит произведение(p) элементов,расположенных на побочной диагонали матрицы А (матрицу считать квадратной). ЧИСЛО к ВВЕСТИ.

                    Листинг программы
                
 
                        
                          
                    
Sub matr()
Dim N As Integer, i As Integer, j As Integer, A(100, 100) As Single, _
p(100) As Single, max As Single, Nmax As Integer, K As Single, b(100) As Single
Cells(7, 1) = "ГђГҐГ§ГіГ«ГјГІГ*ГІГ»"
Cells(8, 1) = "B="
Cells(10, 1) = "Nmax"
Cells(10, 3) = "max="
Cells(9, 1) = "Гђ="
N = Cells(1, 2)
K = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®")
For i = 1 To N
For j = 1 To N
A(i, j) = Cells(i + 2, j + 1)
Next j
Next i
For j = 1 To N
max = Abs(A(i, j))
Nmax = 1
For i = 2 To N
If A(i, j) > max Then
   If Abs(A(i, j)) <= K Then
   max = Abs(A(i, j))
   Nmax = j
   End If
End If
b(j) = max
Next i
Next j
Cells(10, 2) = Nmax
Cells(10, 4) = max
For j = 1 To N
Cells(8, j + 1) = b(j)
Next j
p(i) = 1
For i = 1 To N
For j = 1 To N
If i + j - 1 = N Then
 p(i) = p(i) * A(i, j)
End If
Next j
Next i
Cells(9, 2) = p(i)
End Sub

вот исправьте-а то у меня все время P=1 и проблема с макс элементами.

Ну же ребят,мне в понедельник сдать надо.

Решение задачи: «Сформировать вектор b(j) и найти произведение элементов матрицы»

textual
                            Листинг программы 
                        
If Abs(A(i, j)) <= K Then
         max = Abs(A(i, j))
         tr = True