Вычислить минимальный корень из модуля ряда чисел

Function minQQ(A() As Double, Optional i As Integer = 1, Optional r As Double = 0) As Double
    If i = UBound(A, 1) Then
       If Sqr(Abs(A(i))) < r Then
          minQQ = A(i)
       Else
          minQQ = r
       End If
    ElseIf i = 1 Then
       minQQ = minQQ(A(), 2, A(i))
    Else
       If Sqr(Abs(A(i))) < r Then
          minQQ = minQQ(A(), i + 1, Sqr(Abs(A(i))))
       Else
          minQQ = minQQ(A(), i + 1, r)
       End If
    End If
End Function
 
 
Sub Test_2()
 
Dim A(1 To 10) As Double
 
    A(1) = 6
    A(2) = 16
    A(3) = 3
    A(4) = 63
    A(5) = 62
    A(6) = 26
    A(7) = 6
    A(8) = 11
    A(9) = 100
    A(10) = -4
 
    Debug.Print minQQ(A())
 
End Sub

Sub Test_2()
 
Dim A(1 To 10) As Double
 
    A(1) = 6
    A(2) = 16
    A(3) = 3
    A(4) = 63
    A(5) = 62
    A(6) = 26
    A(7) = 6
    A(8) = 11
    A(9) = 100
    A(10) = -4
 
    Debug.Print minQQ(A())
 
End Sub