VBA: Построить вектор L, элементы которого равны разнице главной и побочной диагоналей матрицы K (m,m).

[Glazastik]

Здравствуйте! Не мог бы кто-нибудь помочь мне с заданием по VBA? Задание: построить вектор L, элементы которого равны разнице главной и побочной диагоналей матрицы K (m,m). У меня есть как построить вектор суммы главной и побочной диагонали, а что нужно поменять я не пойму никак. Спасибо за внимание)

Sub compute()
Dim K() As Single, L As Single, m As Integer
Dim i As Integer, j As Integer, t As Integer

'Переход на рабочий лист 1
Worksheets("Лист1").Activate
'Введение количества строк и столбцов матрицы через InputBox
m = InputBox("Введите размерность рядков")
t = 0
'Инициализация массива
ReDim K(1 To m, 1 To m)
'Цикл
Randomize
For i = 1 To m
 For j = 1 To m
 'Генератор случайных значений
 K(i, j) = Rnd() * 10 - 3
 Cells(5 + i, j) = K(i, j)
 Next j
Next i

'Цикл
For j = 1 To m
For i = 1 To m
'Условие отбора
If i = j Then
L = L + K(i, j)
End If
Next i
Next j
Cells(20, 1) = L

L = 0
t = 0
For j = 1 To m
For i = 1 To m - 1
Next i
L = L + K(i - t, j)
t = t + 1
Next j

Cells(20, 2) = L

'Условие отсутствия позитивных элементов в массива
End Sub