Programacion visual

Aquí esta la implementación de un subprograma que resuelve determinantes en visual basic.

Public Sub Calc_Det(ByRef D() As Single, ByVal Orden As Integer, ByRef res As Single)
Dim col, j, Fila, L As Integer
Dim D2() As Single
Dim r2 As Single
res = 0
   If Orden = 1 Then
      res = D(1, 1)
   Else
     If Orden = 2 Then
        res = (D(1, 1) * D(2, 2)) - (D(1, 2) * D(2, 1))
     Else
       ReDim D2(1 To r, 1 To r)
       For col = 1 To Orden
          For Fila = 2 To Orden
             j = 1
             For L = 1 To Orden
                If L <> col Then
                  D2(Fila - 1, j) = D(Fila, L)
                  j = j + 1
                End If
             Next L
          Next Fila
          Calc_Det D2, Orden - 1, r2
          r2 = r2 * D(1, col)
          If (col Mod 2) <> 0 Then
             res = res + r2
          Else
             res = res - r2
          End If
       Next col
     End If
   End If
End Sub