Найти среднее арифметическое из положительных элементов массива - VB

Function avgPos(X() As Double, Optional s As Double = 0, _
                                 Optional i As Integer = 0, _
                                 Optional n As Double = 0) As Double
 
   If i = 0 Then
      avgPos = avgPos(X, 0, 1, 0)
   ElseIf i > UBound(X, 1) Then
      avgPos = s / n
   ElseIf X(i) > 0 Then
      avgPos = avgPos(X, s + X(i), i + 1, n + 1)
   Else
      avgPos = avgPos(X, s, i + 1, n)
   End If
 
End Function
 
Sub Test()
 
Dim Z(1 To 5) As Double
 
    Z(1) = 8
    Z(2) = -8
    Z(3) = 6
    Z(4) = 6
    Z(5) = -11
    
    Debug.Print avgPos(Z) ' печать 6,66666666666667
 
End Sub