---

Function note(maximalpunkte As Integer, _
              benoetigteProzente As Double, _
              erreichtePunkte As Integer) As String
    Dim benoetigtePunkte As Double
    benoetigtePunkte = (maximalpunkte * benoetigteProzente) / 100
    If erreichtePunkte >= benoetigtePunkte Then
        note = "bestanden"
    Else
        note = "nicht bestanden"
    End If
End Function

---