Visual Basic

Задание:
Напишите фрагмент программы, который обеспечивает ввод целых чисел с клавиатуры до тех пор, пока пользователь не введет 0. Необходимо, чтобы было вычислено среднее арифметическое введенных чисел, и результат был отображен на экране.

Ввожу в VB

Dim intX, intSum As Integer
Do
intX = InputBox("Ведите число")
intSum += intX
Loop Until intX = 0
MsgBox(intSum)

Собственно, сумму введенных чисел и условие выхода я написал. Проблема в подсчете среднего арифметического.
Помогите, кто знает как?

Проверьте себя, пройдя испытание мудрости. Самые достойные получат приз — награду в профиль на Пикабу.