Лежит или не лежит точка в данной области

Sub Example()
Dim F As Single
Dim L As Single
Dim K As Single
Title = "Ввод исходных данных":
Vvod = "Введите значение переменной"
10 X = CSng(InputBox(Vvod & " X", Titile))
   Y = CSng(InputBox(Vvod & " Y", Title))
   Z = CSng(InputBox(Vvod & " Z", Title))
    If X < Y Then
      L = X + Y
      Else: L = Y + Y
      End If
    If X > Y Then
      K = X ^ 2 - Y * X
      Else: K = Y ^ 2 - Y * X
      End If
    If Y > X Then
      K = Y ^ 2 - Y * X
      Else: K = Z ^ 2 - Y * X
      End If
    If K = 0 Then
    K = 0
    PushButton = MsgBox(" В знаменателе 0 ", 5, "Error")
    Select Case PushButton
    Case vbRetry: GoTo 10
    Case vbCanel: GoTo 20
    End Select
    End If
F = L / K
ВЫВОД = MsgBox("Заданы три переменные X= " & X & ", Y= " & Y & " и Z=" & Z & vbLf & "значение вражения F= " & F, vbRetryCancel, "Результат работы процедуры")
Select Case ВЫВОД
Case vbRetry: GoTo 10
Case vbCancel: GoTo 20
End Select
20 End Sub

Sub Example13()
Dim X, Y As Single: Dim N As Byte
Titke = "Ввод исходных данных": Vvod = "Введите координату по"
10 X = InputBox(Vvod & " X", Title)
Y = InputBox(Vvod & "Y", Title)
If Y > 0 Then
If Y <= X * X Then
 N = IIf(Y <= 0, 2, 1)
 End If
N = IIf(X >= 0, 3, 4)
Else: N = IIf(X >= 0, 4, 3)
End If
Вывод = MsgBox("Точка с заданными координатами (" & X & ";" & Y & ")" & vbLf & " Лежит в области N=" & N, vbRetryCancel, "Результат работы процедуры")
Select Case Вывод
Case vbRetry: GoTo 10
Case vbCancel: GoTo 20
End Select
20 End Sub

Titke = "Ввод исходных данных": Vvod = "Введите координату по"

Title = "Ввод исходных данных": Vvod = "Введите координату по"

If Y <= X * X Then
    N = IIf(Y <= 0, 2, 1)
End If
N = IIf(X >= 0, 3, 4)

If Y >= X * X Then
    N = IIf(X >= 0, 2, 1)
Else
    N = IIf(X >= 0, 3, 4)
End If