Обработка массивов данных в среде Visual Basic - VB

Function Y(A() As Double, x As Double, Optional n As Integer = 0, _
                                                     Optional s As Double = 0) As Double
   If n = UBound(A, 1) Then
      Y = s
   Else
      Y = Y(A, x, n + 1, s * x + A(n + 1))
   End If
End Function
 
Sub Test()
Dim A(1 To 5) As Double
    For i% = 1 To 5
        A(i%) = i%
    Next i%
    x# = 2
    Debug.Print Y(A, x# ^ 2)
End Sub