---

Function addition() As Integer
    Dim ersterSummand As Integer
    Dim zweiterSummand As Integer
    Dim summe As Integer

    ersterSummand = 14
    zweiterSummand = 37

    summe = ersterSummand + zweiterSummand
    addition = summe
End Function

---