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

Dim x As Double, y As Double
InputBox ("Введите х")
InputBox ("Введите у")
x = Sqr(x)
y = Sqr(y)
If x <= 1 And x >= 0 And y <= 1 And y >= 0 And a = x ^ 3 Then
If a <= 1 And a >= 0 Then
MsgBox ("Точка А принадлежит плоскости")
Else: MsgBox ("Точка А не принадлежит плоскости")
End If
End If

If x>= 0 And (y >= x^3 And y <= 1-x^2) Then
  MsgBox ("Точка А принадлежит плоскости")
Else 
  MsgBox ("Точка А НЕ принадлежит плоскости")
End If

Dim x As Double, y As Double
InputBox ("Введите x")
InputBox ("Введите y")
x = Sqr(x)
y = Sqr(y)
If x >= 0 And (y >= x ^ 3 And y <= 1 - x ^ 2) Then
  MsgBox ("Точка А принадлежит плоскости")
Else
  MsgBox ("Точка А не принадлежит плоскости")
End If

x = InputBox("Введите x")
y = InputBox("Введите y")

x = Sqr(x)
y = Sqr(y)

If x >= 0 And y >= x ^ 3 And y <= Sqr(1 - x ^ 2) Then