Вычисление площади треугольника, построенного по трем точкам

Function dlin(ByVal a As Double, x As Double, b As Double, y As Double)
dlin = sqrt(Sqr(a - x) + Sqr(b - y))
End Function
Sub Задание6()
Dim p, l, w, c, d, h, z, S, n, q, m As Double
w = CDbl(InputBox("Введите координату x точки A", "Исходные данные"))
d = CDbl(InputBox("Введите координату y точки A", "Исходные данные"))
h = CDbl(InputBox("Введите координату x точки B", "Исходные данные"))
l = CDbl(InputBox("Введите координату y точки B", "Исходные данные"))
c = CDbl(InputBox("Введите координату x точки C", "Исходные данные"))
z = CDbl(InputBox("Введите координату y точки C", "Исходные данные"))
p = (dlin(w, h, d, l) + dlin(w, c, d, z) + dlin(c, h, z, l)) / 2
S = sqrt(p * (p - dlin(w, h, d, l)) * (p - dlin(w, c, d, z)) * (p - dlin(c, h, z, l)))
MsgBox "Площадь треугольника равна" & S & "(кв. ед)"
End Sub

Function dl(xx1 As Integer, xx2 As Integer, yy1 As Integer, yy2 As Integer)
dl = Sqr((xx2 - xx1) ^ 2 + (yy2 - yy1) ^ 2)
End Function
Sub n()
Dim x1 As Integer
Dim x2 As Integer
Dim x3 As Integer
Dim y1 As Integer
Dim y2 As Integer
Dim y3 As Integer
x1 = InputBox("Введите координату x1", , 1)
y1 = InputBox("Введите координату y1", , 1)
x2 = InputBox("Введите координату x2", , 4)
y2 = InputBox("Введите координату y2", , 1)
x3 = InputBox("Введите координату x3", , 3)
y3 = InputBox("Введите координату y3", , 2)
d1 = dl(x1, x2, y2, y1)
d2 = dl(x2, x3, y2, y3)
d3 = dl(x1, x3, y1, y3)
If d2 + d3 > d1 And d1 + d3 > d2 And d2 + d1 > d3 Then
    p = d1 + d2 + d3
    MsgBox "Периметр треугольника=" & p
Else
    MsgBox "Такой треугольник не существует"
    Exit Sub
End If
p = p / 2
s = Sqr(p * (p - d1) * (p - d2) * (p - d3))
MsgBox "Площадь треугольника=" & s
End Sub

Dim p, l, w, c, d, h, z, S, n, q, m As Double

Dim x1 As Integer
Dim x2 As Integer
Dim x3 As Integer
Dim y1 As Integer
Dim y2 As Integer
Dim y3 As Integer