Calcular media y mínimo

[Koudelka]

resurjo este tema porque hasta ahora no he podido probarlo >.<

Veamos, he hecho un módulo llamado media con la primera parte que tenía que copiar y después en unos campos de texto independientes he puesto lo último, el problema es que me ha dado error en un Me (Te lo marco en rojo)

Public Function MediaEnForm() As Double
Dim arrayControles() As Variant
Dim i As Integer
Dim CuantosValores As Integer
Dim SumaValores As Double

arrayControles = Array("seco1a", "seco1b", "seco1c", "seco2a", "seco2b", "seco2c", "seco3a", "seco3b", "seco3c", _
"seco4a", "seco4b", "seco4c", "seco5a", "seco5b", "seco5c")

For i = 0 To UBound(arrayControles)
If Nz(Me.Controls(arrayControles(i)), 0) <> 0 Then
CuantosValores = CuantosValores + 1
SumaValores = SumaValores + Me.Controls(arrayControles(i))
End If
Next

MediaEnForm = SumaValores / CuantosValores
End Function

Puede ser porque todavía están los campos en blanco?