تابع محاسبه دترمینال N x N در Visual Basic

Function determinant(Matrix() As Single, Norder As Integer, deter As SingleDim k, k1, i, j) As Integer
Dim save As Single
Dim check As Boolean
deter = 1
For k = 1 To Norder
 If Matrix(k, k) = 0 Then
  j = k
  Do
   check = True
   If Matrix(k, j) = 0 Then
    If j = Norder Then
     deter = 0
     Exit Function
    End If
    check = False
    j = j + 1
   End If
   If Matrix(k, j) <> 0 Then
    For i = k To Norder
    ( save = Matrix(i, j
   (  Matrix(i, j) = Matrix(i, k
     Matrix(i, k) = save
    Next i
    deter = -deter
   End If
  Loop While check = False
 End If
( deter = deter * Matrix(k, k
 If k - Norder < 0 Then
  k1 = k + 1
  For i = k1 To Norder
   For j = k1 To Norder
((    Matrix(i, j) = Matrix(i, j) - (Matrix(i, k) * Matrix(k, j) / Matrix(k, k 
   Next j
  Next i
 End If
Next k
End Function