---

Function addiereBisZu(n As Integer) As Integer
    Dim summe As Integer
    Dim i As Integer
    summe = 0

    For i = 1 To n
        summe = summe + i
    Next i
    addiereBisZu = summe
End Function

---