Программа(VBA)

[Zull23]

Здравствуйте уважаемые форумчане. Помогите пожалуйста, в вба несилен. Не пойму где ошибка.
Собственно задание: Даны три точки А(x1, y1), В(x2, y2), С(x3, y3). Определить будут ли они расположены на одной прямой. Если нет, то вычислить периметр треугольника.
Sub two()
Dim X1 As Double
Dim X2 As Double
Dim X3 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim Y3 As Double
X1 = InputBox("Введите координату X1")
X2 = InputBox("Введите координату X2")
X3 = InputBox("Введите координату X3")
Y1 = InputBox("Введите координату Y1")
Y2 = InputBox("Введите координату Y2")
Y3 = InputBox("Введите координату Y3")
If (X3 - X1) / (X2 - X1) = (Y3 - Y1) / (Y2 - Y1) Then
MsgBox "Точки на одной прямой"
Else
AB = ABqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
BC = BCqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)
CA = CAqr((X3 - X1) ^ 2 + (Y3 - Y1) ^ 2)
Р = АВ + ВС + СА
MsgBox ("Периметр треугольника равен" + Chr(13) + " P = " & P & "")
End Sub