Нужна помошь с написанием программы (VB)

Формулировка задачи:

Очень долго пытаюсь решить одну задачу. Пока результат не радует( Я в отчаянии. Пожалуйста помогите с решением следующей задачи: "В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д. Определить кольцо с центром в начале координат, которое содержит все точки." Вот мои наработки по ней:

Dim a() As Integer, i As Integer, n As Integer, str As String, max As Integer, min As Integer, _
r As Single
 
n = InputBox("Введите количество точек ")
r = 1
min = 999
max = -999
 
n = 2 * n
 
ReDim a(1 To n) As Integer
 
str = " "
For i = 1 To n
a(i) = Int(10 * Rnd + 1) + Int(-10 * Rnd + 1)
str = str & a(i) & " "
Next i
MsgBox ("Исходный массив с координатами : " & str)

For i = 1 To n Step 2
 
r = Sqr(a(i) ^ 2 + a(i + 1) ^ 2)

If r > max Then
r = max
End If
 
If r < min Then
r = min
End If
 
Next i
MsgBox ("Внешний радиус кольца: " & min & "Внутренний радиус кольца: " & min)

Решение задачи: «Нужна помошь с написанием программы (VB)»

textual
                            Листинг программы 
                        
                             MsgBox ("Внешний радиус кольца: " & max & vbCrLf & "Внутренний радиус кольца: " & min)