Координаты центра окружности и эллипса

Sub Grafik()
 
Dim R As Integer, A As Integer, B As Integer, y0el As Integer, y0okr As Integer
Dim x As Single, y As Single, x0el As Single, x0okr As Single
Dim p1 As Integer, p2 As Integer, p3 As Integer, p4 As Integer, p5 As Integer, p6 As Integer
 
x = InputBox("Введите значение x")
y = InputBox("Введите значение y")
 
Dim x1 As Integer, x2 As Integer, y1 As Integer
x1 = -36
x2 = 36
y1 = 0
R = 30
A = 23
B = 38
'Вычесляем значение окружности
Dim A1 As Single, B1 As Single, C1 As Single, C2 As Long, B2 As Long, A2 As Long
y0el = 40 - 38
y0okr = -40 + 30
 
A1 = 1
B1 = -2 * x1
C1 = x1 * x1 + (y1 - y0okr) * (y1 - y0okr) - R * R
x0okr = (-B1 + Sqr(B1 * B1 - 4 * A1 * C1)) / (2 * A1)
 
'Вычесляем значение Эллипса ?
A2 = B * B
B2 = CLng(-2) * x2 * (B * B)
C2 = (CLng(x2 * x2) * (B * B)) - (CLng(B * B) * (A * A)) + (y1 - y0el) * (y1 - y0el)
x0el = (-B2 + Sqr(B2*B2 - 4 * CLng(A2 * C2))) / (2 * A2)
 
'Вычесление принадлежности точек
p1 = y < 0
p2 = ((x - x0okr) * (x - x0okr)) + ((y - y0okr) * (y - y0okr)) < R * R
p3 = ((x - x0el) * (x - x0el)) / (A * A) + ((y - y0el) * (y - y0el)) / (B * B) > 1
p4 = x < 0
p5 = ((x - x0okr) * (x - x0okr)) + ((y - y0okr) * (y - y0okr)) > R * R
p6 = ((x - x0el) * (x - x0el)) / (A * A) + ((y - y0el) * (y - y0el)) / (B * B) < 1
 
If ((p1 And p2 And p3 And p4) Or (p5 And p6 And p1)) Then
  MsgBox "Введенные значения входят в облость"
  
Else
  MsgBox "Введеные точки не входят в область"
End If
 
End Sub