Определить, попадает ли точка M(x,y) в треугольник с вершинами А(1;5) В(7;6) и С(4;1)

Sub Задание_9_1()
x = InputBox("Введите x")
y = InputBox("Введите Y")
 
 
If (y <= ((-4) / (3 * Х)) + 19 / 3) And (y <= (1 / (6 * Х)) + 29 / 6) And (y <= 5 / (3 * Х) - 17 / 3) Then GoTo ms
Else
 
Debug.Print "точка М не принадлежит"
 
End If
 
ms: Debug.Print "точка М принадлежит"
End Sub

Sub Задание_18()
 
Dim A(1 To 5) As Single
Dim b As Single
Randomize
For i = 1 To 5
A(i) = 0 + (Rnd * (100 - (0) + 1))
 Debug.Print A(i);
Next i
For i = 1 To 10
If (A(i) > A(i + 1)) Then
b = A(i)
A(i + 1) = A(i)
Else
b = A(i + 1)
A(i) = A(i + 1)
End If
Debug.Print ""
Debug.Print A(i)
Next i
 
End Sub

Option Explicit
 
Private Sub CommandButton1_Click()
Dim x1#, y1#, x2#, y2#, x3#, y3#, s1#, s2#, s3#, t$, x0#, y0#
x1 = 1 'Val(Text1)
y1 = 5 'Val(Text2)
x2 = 7 'Val(Text3)
y2 = 6 'Val(Text4)
x3 = 4 'Val(Text5)
y3 = 1 'Val(Text6)
 
x0 = InputBox("Введите x") 'дробную часть отделять
y0 = InputBox("Введите Y") 'запятой (если по русски)
 
s1 = (x1 - x0) * (y2 - y1) - (x2 - x1) * (y1 - y0)
s2 = (x2 - x0) * (y3 - y2) - (x3 - x2) * (y2 - y0)
s3 = (x3 - x0) * (y1 - y3) - (x1 - x3) * (y3 - y0)
If Sgn(s1) = Sgn(s2) And Sgn(s3) = Sgn(s2) Then
  t = "Точка внутри треугольника"
ElseIf s1 = 0 And Sgn(s3) = Sgn(s2) Or s2 = 0 And Sgn(s3) = Sgn(s1) Or s3 = 0 And Sgn(s1) = Sgn(s2) Then
  t = "Точка на границе треугольника"
ElseIf s1 = 0 And s2 = 0 Or s3 = 0 And s2 = 0 Or s1 = 0 And s3 = 0 Then
  t = "Точка в вершине треугольника"
Else
  t = "Точка вне треугольника"
End If
 
MsgBox t
End Sub