Треугольник в VBA

[FullmetalAlchemist]

Народ всем привет!!я понимаю что задание для первоклассника но я за VBA целый год не садился помогите пожалуйста. Всем заранее спасибо!Вот текст задания:
Выяснить, существует ли треугольник с координатами вершин А(x1; y1), В(x2; y2), C(x3; y3).

[doober]

Люди не могут получить что-либо не отдав что-либо взамен.Ты должен заплатить что-то равной величины за то, что хочешь получить."-Это принцип равнозначного обмена в алхимии.

Так как поиск по форуму не рулит,то следуя вашей подписи ,меняю ваше математическое описание решения задачи на потом написанный с него программный код.

[viter.alex]

Скажем так, не совсем для первоклассника. Я не знаю, сейчас в школе проходят уравнение прямой, проходящей через две точки? Выглядит оно вот так:

Треугольник будет существовать, если три точки не совпадают попарно и не лежат на одной прямой:

Function TriangleExists(x1 As Single, y1 As Single, _
                        x2 As Single, y2 As Single, _
                        x3 As Single, y3 As Single) As Boolean
  'Точки не должны совпадать:
  Dim f As Boolean
  f = (x1 = x2) And (y1 = y2)
  f = (x2 = x3) And (y2 = y3)
  f = (x3 = x1) And (y3 = y1)
  
  If f Then TriangleExists = Not f: Exit Function
  
  'Точки не должны лежать на одной прямой:
  f = ((y1 - y2) * x3 + (x2 - x1) * y3 + (x1 * y2 - x2 * y1)) <> 0
  
  TriangleExists = f
End Function

Пример:

Type MyPoint
  X As Single
  Y As Single
End Type
Sub test()
  Dim A As MyPoint, B As MyPoint, C As MyPoint
  A.X = 0: A.Y = 0
  B.X = 0: B.Y = 1
  C.X = 1: C.Y = 1.5
  If TriangleExists(A.X, A.Y, B.X, B.Y, C.X, C.Y) Then
    MsgBox "Треугольник  с координатами А(" & A.X & "," & A.Y & "), B(" & B.X & "," & B.Y & "), С(" & C.X & "," & C.Y & ") существует"
  Else
    MsgBox "Треугольник  с координатами А(" & A.X & "," & A.Y & "), B(" & B.X & "," & B.Y & "), С(" & C.X & "," & C.Y & ") не существует"
  End If
End Sub

Всё это нужно делать в отдельном модуле. Определение структуры MyPoint должно быть перед всеми процедурами

[FullmetalAlchemist]

Большое спасибо viter.alex!!