Office: Berechnungen im Gruppenfuss

Hallo,
ich benutze Access 2010 und hänge seit Tagen fest. Im Gruppenfuss habe ich eine Berechnung des Mittelwertes (Textfeldname: txtMittelwert) vorgenommen:
(in: Eigenschaftenblatt /Daten/Steuerelement) =Mittelwert([Punkt_Ergebnis])
Die Mittelwert-Ergebnisse pro Mitarbeiter werden jeweils korrekt angezeigt.
Jetzt möchte ich per Programmierung den jeweiligen Mittelwert nutzen, um Bonuswerte (Textname: Bonus) ausrechnen zu können:

'Bonus-Berechnung in Abhängigkeit von Höhe des Mittelwertes, sowie des Gehalts (beide Felder im Gruppenfuss)
'Nebeninfo: Punkt_Ergebnis ist eine Bewertungsnote aus einem Fragebogen des frmBestellungen in der DB
Private Sub txtBonus_GotFocus()
Dim Mittelwert As String
txtMittelwert = CStr(Mittelwert([Punkt_Ergebnis]))
Select Case [txtMittelwert]
Case 90 To 100
Bonus = Gehalt * 100 / 100
Case 80 To 89
Bonus = Gehalt * 90 / 100
Case 70 To 79
Bonus = Gehalt * 80 / 100
Case 60 To 69
Bonus = Gehalt * 70 / 100
Case 50 To 59
Bonus = Gehalt * 50 / 100
Case 0 To 49
Bonus = Gehalt * 0
End Select
End Sub

Meine Codierung funktioniert nicht, ebenso wenig wie die vorigen gefühlten 1793 Varianten. Kann mir jemand auf die Sprünge helfen?

Grüße vom Burgfräulein