Sub addition3()
    ' Programm addiert alle natuerlichen Zahlen, bis zu einer einzugebenden Zahl
    ' Dateiname: addition
    Dim summe As Integer
    Dim EingegebeneZahl As Integer
    Dim i As Integer
    MsgBox ("Addition aller natuerlichen Zahlen von 1 bis zu der Zahl, die Sie eingeben!")
    EingegebeneZahl = InputBox("Geben Sie nun die Zahl ein, bis zu der addiert werden soll!")
    summe = 0
    For i = 1 To EingegebeneZahl
        summe = summe + i
    Next i
    MsgBox ("Summe: " & summe)
End Sub