Области, описываемые логическими выражениями: принадлежит ли точка области?

Sub Supercharge()
Const x = 0 'абцисса
Const y = 3 'ордината
'Теперь отсекаем (по одной) незакрашенные области координатной плоскости.
Dim принадлежит As Boolean: принадлежит = True
 
    Select Case x
    Case Is < -3: принадлежит = False
    Case Is > 6: принадлежит = False
    End Select
 
    Select Case y
    Case Is < -3: принадлежит = False
    Case Is > 0
        If x ^ 2 + y ^ 2 > 9 Then
            принадлежит = False
        Else '(X;Y) внутри окружности радиуса 3 с центром в (0; 0)
            If y > -x / 2 + 3 Then
                принадлежит = False
            Else '(X;Y) под прямой, соединяющей точки (0; 3) и (6; 0)
                принадлежит = True
            End If
        End If
    Case Is > 3: принадлежит = False
    End Select
    
    MsgBox принадлежит 'выводит True, если (X;Y) в области, иначе False
End Sub

Sub sdf()
Dim x, y As Double
Dim yes As Boolean
 
x = -1 'CDbl(InputBox("x="))
y = 1 'CDbl(InputBox("y="))
yes = False
 
If y > 0 Then
  If x > 0 Then
    If y < -3 / 6 * x + 3 Then yes = True
  Else
    If x * x + y * y < 3 * 3 Then yes = True
  End If
End If
 
Debug.Print yes
 
End Sub

Sub sdf()
Dim x, y As Double
Dim yes As Boolean
 
x = -1 'CDbl(InputBox("x="))
y = 1 'CDbl(InputBox("y="))
yes = False
 
If (y > 0 and x>0) and (y<-3 / 6 * x + 3) Then yes = True
If (y > 0 and x<=0) and (x * x + y * y < 3 * 3) Then yes = True
 
Debug.Print yes
 
End Sub