Function suma_OD_DO(Lp, Lk) As Integer
Dim suma As Integer
If Lp < Lk Then
For zm = Lp To Lk Step 1
suma = suma + zm
Next zm
Else
For zm = Lp To Lk Step -1
suma = suma + zm
Next zm
End If

suma_OD_DO = suma
End Function

Sub petelka2()
Dim iloscbox As Integer
Dim suma1 As Integer
Dim suma2 As Integer

iloscbox = InputBox("podaj ile liczb chcesz wprowadzić")
For xd = 1 To iloscbox Step 1
suma1 = InputBox("podaj liczbe " & xd)
suma2 = suma2 + suma1
Next xd
MsgBox (suma2)
End Sub