Average of unbound cells?

[C90RanMan]

I am trying to Average values in four unbound cells(named: Dif1, Dif2, Dif3 and Dif4) on a form. Some cells will have zero values so I only want to average the cells that have a value greater than zero. Any guidence would be appreciated.

Best Regards

 

[nathansav]

dim intCount as integer
dim h as integer
dim lngtotal as long
dim lngAverage as long

intCount=0

for h= 1 to 4
if me.controls("Diff" & h).value<>0 then
lngtotal=lngtotal+me.controls("Diff" & h).value
intcount=intcount+1
end if
next h

lngAverage = lngtotal/intCount