Заданы координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр

Заданы координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь.

Sub ex_2()
'Описание координат вершин
Dim x1, y1 As Double
Dim x2, y2 As Double
Dim x3, y3 As Double
'Pt - периметр треугольника, St - его площадь
Dim Pt, St As Double
'Вспомогательные переменные
Dim AB, BC, CA As Double
Dim p As Double
'Ввод координат вершин
x1 = CDbl (InputBox("x1"))
y1 = CDbl (InputBox("y1"))
x2 = CDbl (InputBox("x2"))
y2 = CDbl (InputBox("y2"))
x3 = CDbl (InputBox("x3"))
y3 = CDbl (InputBox("y3"))
'Вычисление периметра
AB = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
BC = Sqr ((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
CA = Sqr ((x3 - x1) ^ 2 + (y3 - y1) ^ 2)
Pt = (AB + BC + CA)
'Вычисление площади по Герону
p = Pt / 2
St = Sqr (p * (p - AB) * (p - BC) * (p - CA))
MsgBox "Периметр равен " + CStr(Pt) + ";" + vbCr + "Площадь равна " + CStr(St)
End Sub