Ввод и вывод выполнить с встроенных диалоговых окон InputBox и MsgBox

[Anti123]

Еcлиe у кого-нибудь есть время, помогите с задачей!
Ввод и вывод выполнить с помощью встроенных диалоговых окон InputBox и MsgBox
Даны действительные числа x, y. Определить, пренадлежит ли точка с координатами х, у выделеной части плоскости ( r=1, R=2)

[DiemonStar]

Sub aaa()
  Do
   X = InputBox("Input X:", "Input", 0)
  Loop Until IsNumeric(X)
  Do
   Y = InputBox("Input Y:", "Input", 0)
  Loop Until IsNumeric(Y)
  Do
   R1 = InputBox("Input R1:", "Input", 0)
  Loop Until IsNumeric(R1)
  Do
   R2 = InputBox("Input R2:", "Input", 0)
  Loop Until IsNumeric(R2)
  
  If R2 < R1 Then
    R = R1
    R1 = R2
    R2 = R
  End If
  
  R = Sqr(X * X + Y * Y)
  If (R <= R2) And (R >= R1) Then
    MsgBox "In area"
  Else
    MsgBox "Not in area"
  End If
End Sub

[IgorGO]

или чуть компактнее:

Sub aaa()
  Do:  X = InputBox("Input X:", "Input", 0):  Loop Until IsNumeric(X)
  Do:  Y = InputBox("Input Y:", "Input", 0):  Loop Until IsNumeric(Y)
  Do:  R1 = InputBox("Input R1:", "Input", 0):  Loop Until IsNumeric(R1)
  Do:  R2 = InputBox("Input R2:", "Input", 0):  Loop Until IsNumeric(R2)
  R = Sqr(X^2 + Y^2):  MsgBox  Iff (R - R1)*(R - R2) <=  0, "IN", "OUT")
End Sub

[Anti123]

Спасибо Вам большое!!