circle

Option Explicit
Sub mine_1()
Dim x As Double, y As Double
x = 1.5
y = 1.3
If ((x * x) + (y * y) < 2) And ((x * x) + (y * y) > 1) Then
MsgBox ("Точка входит")
Else
MsgBox ("Fail")
End If
End Sub