This code will keep adding numbers input by the user until they input 0 or less.

VB code
Dim total As Integer = 0 Dim number As Integer = 0 Do     number = InputBox("Please enter a number to add to the total")     If number>0 Then         total = total + number     End If Loop Until number<=0 MsgBox("The total of the numbers is " & total)

This code assumes there is an array of integers called listOfNumbers.
It combines running total with traversing an array.

VB code
Dim total As Integer = 0 For counter = 0 To UBound(listOfNumbers)     total = total + listOfNumbers(counter) Next counter MsgBox("The total of the numbers is " & total)

This code makes use of the running total idea but concatenates strings instead.
It asks the user to enter 5 strings then displays them all as a list separated by commas.
At the moment it will display a comma at the start of the list. Can you work out how to stop that happening?

VB code
Dim finalList As String = "" Dim item As String = "" For counter = 1 To 5     item = InputBox("Please enter item number " & counter)     finalList = finalList & ", " & item Next counter MsgBox("The list of items is " & finalList)