If you judicously name your controls ...1 to ...10 then this function will do it.
Warning >>> AIR CODE <<<
Code:
Private Function MyAverage() As Double
Dim Accumulation As Double
Dim Counter As Integer
Dim Available As Integer
For Counter = 1 To 10
If Len(Me.Controls("YourName" & Counter) & "") > 0 Then
' This control has a value
Accumulation = Accumulation + Me.Controls("YourName" & Counter)
Available = Available + 1
End If
Loop
If Available > 0 Then
MyAverage = Accumulation / Available
Else
MyAverage = 0
End If
End Function