Sub addition4()
    ' Programm addiert alle natürlichen Zahlen, bis zu einer einzugebenden Zahl
    ' Dateiname: addition4
    Dim summe As Integer
    Dim bisZu As Integer
    Dim i As Integer
    MsgBox ("Addition aller natürlichen Zahlen von 1 bis zu der Zahl die Sie eingeben!")
    bisZu = InputBox("Geben Sie nun die Zahl ein, bis zu der addiert werden soll!")
    summe = (bisZu * (bisZu + 1)) / 2
    MsgBox ("Summe: " & summe)
End Sub