Нахождение определителя методом Гаусса - VBA

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

Нужно написать макрос который сможет найти определитель матрицы (n*n) используя метод Гаусса (вводится матрица с листа экселя). Вот процедура решения СЛАУ методом Гаусса, но как с её помощью найти определитель - не могу понять, буду благодарен за помощь.

Sub TrSolve()   ' Решение СЛАУ с верхней треугольной матрицей  (метод Гаусса)
Dim TR As Range
Dim N As Integer
For Each TR In Selection.Areas
  NM = TR.Count
  i1 = TR.Row: j1 = TR.Column
  ' N = (-1 + Sqr(1 + 4 * NM)) / 2   ' Способ первый
  N = 0: mn = 0                                 ' Способ  второй:
  Do While mn < NM:    N = N + 1: mn = N * (N + 1):   Loop
  ' Cells(i1, j1 + N + 1) = 999
  Dim b() As Double
  ReDim b(N)
   For i = 1 To N:  b(i) = TR.Cells(i, N + 1): Next
   For k = N To 1 Step -1
       Cells(i1 + N, j1 + k - 1) = b(k) / TR.Cells(k, k)
       S = 0
       For i = 1 To N - 1
          b(i) = b(i) - TR.Cells(i, k) * Cells(i1 + N, j1 + k - 1)
       Next i
  Next k
Exit For
Next
End Sub
 
Sub E()     '  Ctrl+Shift+E  - создать единичную матрицу
Dim TR As Range
Dim N As Integer
For Each TR In Selection.Areas
  N = Sqr(TR.Count)
   i1 = TR.Row: j1 = TR.Column
  TR = 0
  For i = 1 To N: Cells(i1 + i - 1, j1 + i - 1) = 1: Next
Next
End Sub
 
Sub Lk()  ' Нормирование ведущего столбца  (без наддиагонали) по шагам:
' Скопировать в E  ведущий столбец  (без наддиагонали) и  запустить по Ctrl+Shift+L макрос!
Dim TR As Range
Dim N As Integer
For Each TR In Selection.Areas
  N = TR.Count
  i1 = TR.Row: j1 = TR.Column
  For i = i1 + 1 To i1 + N - 1
      Cells(i, j1) = -Cells(i, j1) / Cells(i1, j1)
  Next i
   Cells(i1, j1) = 1
Next
End Sub

Решение задачи: «Нахождение определителя методом Гаусса»

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

                            Function det(matrix)
   Dim n As Byte, j As Byte
   Dim i_ As Byte, j_ As Byte
   Dim minor()
 
   n = UBound(matrix)
   If n = 1 Then det = matrix(1, 1): Exit Function
   
   ReDim minor(1 To n - 1, 1 To n - 1)
 
   For j = 1 To n 'по первой строке
         For i_ = 1 To n - 1
            For j_ = 1 To n - 1
               If j_ < j Then minor(i_, j_) = matrix(i_ + 1, j_)
               If j_ >= j Then minor(i_, j_) = matrix(i_ + 1, j_ + 1)
            Next j_
         Next i_
      det = det + (-1) ^ (1 + j) * matrix(1, j) * det(minor)
   Next j
End Function
 
Private Sub Command1_Click()
   Dim i As Integer, j As Integer
   n = CInt(InputBox("Число строк")) 'матрица ТОЛЬКО квадратная
   ReDim A(1 To n, 1 To n) As Single
 
   For i = 1 To n
      For j = 1 To n
         A(i, j) = InputBox("a(" & i & " , " & j & " ) ")
         Text1.Text = Text1.Text & A(i, j) & ""
      Next j
      Text1.Text = Text1.Text + vbCrLf
   Next i
   MsgBox det(A) 'Call det(matrix) - бред {Function det, а не Sub det}
End Sub
                        