Определить, принадлежит ли начало координат треугольнику - VB

Private Sub Command1_Click()
Dim x1#, y1#, x2#, y2#, x3#, y3#, s1#, s2#, s3#, t$
x1 = Val(Text1)
y1 = Val(Text2)
x2 = Val(Text3)
y2 = Val(Text4)
x3 = Val(Text5)
y3 = Val(Text6)
 
s1 = x1 * (y2 - y1) - (x2 - x1) * y1
s2 = x2 * (y3 - y2) - (x3 - x2) * y2
s3 = x3 * (y1 - y3) - (x1 - x3) * y3
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