Найти сумму всех чисел последовательности - VB

Формулировка задачи:

Дана непустая последовательность целых чисел, оканчивающаяся 0. Найти: а) сумму всех чисел последовательности б) кол-во всех чисел последовательности Предложите вариант решения.

Решение задачи: «Найти сумму всех чисел последовательности»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 Dim i As Integer, a As Integer, sum As Long
  Do
    a = Val(InputBox("Введите число."))
      sum = sum + a
      i = i + 1
  Loop Until a = 0
 MsgBox "Количество чисел последовательности = " & i - 1 & vbCrLf & _
         "Сумма чисел последовательности = " & sum
End Sub
                        