Function determinant(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4)
v1 = x2 - x1
v2 = -(x3 - x1)
v3 = x4 - x1
d1 = (y3 - y1) * (z4 - z1) - (y4 - y1) * (z3 - z1)
d2 = (y2 - y1) * (z4 - z1) - (y4 - y1) * (z2 - z1)
d3 = (y2 - y1) * (z3 - z1) - (y3 - y1) * (z2 - z1)
determinant = v1 * d1 + v2 * d2 + v3 * d3
End Function
Private Sub Form_Load()
' (7,1,5), (0, 9, 2), (4, 3, 6), (0, 3, 7)
x1 = 7
x2 = 0
x3 = 4
x4 = 0
'
y1 = 1
y2 = 9
y3 = 3
y4 = 3
'
z1 = 5
z2 = 2
z3 = 6
z4 = 7
'
MsgBox determinant(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4)
End Sub