Надо программу, заменяющую отрицательные элементы матрицы А размера 4x4 их абсолютными значениями - VBA

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

Надо создать программу в VBA (Excel), заменяющую отрицательные элементы матрицы А размера 4x4 их абсолютными значениями Ввод данных организовать с помощью процедуры InputBox, а вывод обработанного массива – с помощью процедуры MsgBox. При выводе обработанного массива использовать символы табуляции и перевода строки и вычислить определители исходных матриц. Застряла, кто может, пожалуйста Help Me!! Саму матрицу задать получается, а как дальше...тупик(((

Решение задачи: «Надо программу, заменяющую отрицательные элементы матрицы А размера 4x4 их абсолютными значениями»

textual
                            Листинг программы 
                        

                            Option Base 1
Option Explicit
Dim i AS INTEGER, j As Integer
Dim a()AS DOUBLE, c()AS DOUBLE, sum AS DOUBLE, n AS DOUBLE, k AS DOUBLE, nn As Double
Dim s AS STRING, s1 As String
 
Sub lab()
n = InputBox("Введите размерность квадратной матрицы", "Ввод размерности квадратной матрицы", " ")
ReDim a(n, n)
ReDim c(n * n)
s = "Исходный массив" & vbCrLf
s1 = "Новый массив" & vbCrLf
For i = 1 To n
  For j = 1 To n
    a(i, j) = InputBox("Введите А(" & Str$(i) & "," & Str$(j) & ")", "Ввод исходного массива", "-4")
    s = s & a(i, j) & vbTab
    s1 = s1 & Abs(a(i, j)) & vbTab
  Next j
  s = s & vbCrLf
  s1 = s1 & vbCrLf
Next i
 
MsgBox s & s1
'ActiveCell.Offset(1, 1).Value = s
'For i = 1 To n
'  For j = 1 To n
'    ActiveCell.Offset(i + 2, j).Value = a(i, j) & "   "
'  Next j
'Next i
End Sub
                        