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

Option Explicit
Private Sub Command1_Click()
Dim a() As Integer
Dim m As Integer: Dim i As Integer: Dim polozg As Integer: Dim i_polozg As Integer: Dim sr_a As Single
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("  ", , 10)
ReDim a(1 To m)
    For i = 1 To m
        a(i) = Int(Rnd * 21 - 10)
        Print a(i);
        If a(i) > 0 Then polozg = polozg + a(i): i_polozg = i_polozg + 1
    Next i
Print
 
sr_a = polozg / i_polozg
        
Print "среднее арифметическое = "; sr_a
End Sub

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