Sofern die Anzahl der Variablen, aus welchen Du dem Mittelwert berechnen willst, eine 2 ^ x ist, also bei 2, 4, 8, 16, .... Werten kannst Du anstatt der zeitaufwändigen Division ein Shift Right machen. Ein Shift Right entspricht einer Division durch 2.

Code:
dim w1 as  Word


w1 = w1 + 12
w1 = w1 + 14
w1 = w1 + 7
w1 = w1 + 9

Shift w1, Right, 2


Dim s1 as  Single
s1 = s1 + 12
s1 = s1 + 14
s1 = s1 + 7
s1 = s1 + 9

Shift s1, Right, 2
Es funktioniert bei positiven Ganzahlen (Byte, Word, Integer, Long) als auch bei Single.
Bei Durchschnitt aus 2 Werten brauchst Du Shift Right 1, bei 4 Werten: Right 2, bei 8 Werten: Right 3, bei 16 Werten Right 4 u.s.w.