Formatierung einer Zelle mittels Funktion

Function Note(Punkte As Integer) As String
Select Case Punkte
Case Is >= 90
Note = "sehr gut"
Case 75 To 89
Note = "gut"
Case 60 To 74
Note = "befriedigend"
Case 45 To 59
Note = "ausreichend"
Case 30 To 44
Note = "mangelhaft"
Case Else
Note = "ungenügend"
End Select
End Function