Организовать процедуру ввода цифрового массива из 5 значений и вычисление среднего значения - VB

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

Написал программу. "Организовать процедуру ввода цифрового массива из 5 значений и вычисление среднего значения" Добавил окно вывода ошибки когда массив переполняется, но после отображения ошибки лишнее число добавляется в список(но не учитывается при нахождении среднего). Как сделать так, чтобы оно не добавлялось?

Dim kolich As Integer
Dim chisarr(1 To 5) As Single
 
Private Sub Command1_Click()
Dim sum, m As Single
Dim I As Integer
sum = 0
For I = 1 To kolich
sum = sum + chisarr(I)
Next I
m = sum / kolich
result.Caption = m
 
End Sub
 
Private Sub Command2_Click()
result.Caption = " "
spisok.Clear
End Sub
 
Private Sub Command3_Click()
End
End Sub
 
Private Sub dobavit_Click()
spisok.AddItem chislo.Text
kolich = kolich + 1
If kolich > 5 Then
MsgBox "Массив переполнен!", 16, "Ошибка"
Exit Sub
End If
chisarr(kolich) = chislo.Text
chislo.Text = " "
chislo.SetFocus
End Sub

Решение задачи: «Организовать процедуру ввода цифрового массива из 5 значений и вычисление среднего значения»

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

                            Dim kolich As Integer
Dim chisarr(1 To 5) As Single
 
Private Sub Command1_Click()
If kolich > 0 Then
Dim sum, m As Single
Dim I As Integer
sum = 0
For I = 1 To kolich
sum = sum + chisarr(I)
Next I
m = sum / kolich
result.Caption = m
Else
MsgBox "массив не заполнен"
End If
 
End Sub
 
Private Sub Command2_Click()
result.Caption = " "
spisok.Clear
chislo.Text = ""
kolich = 0
End Sub
 
Private Sub Command3_Click()
End
End Sub
 
Private Sub dobavit_Click()
If IsNumeric(chislo.Text) Then
kolich = kolich + 1
If kolich > 5 Then
MsgBox "Массив переполнен!", 16, "Ошибка"
kolich = kolich - 1
Exit Sub
End If
spisok.AddItem Val(chislo.Text)
chisarr(kolich) = chislo.Text
chislo.Text = " "
chislo.SetFocus
Else
MsgBox "введите число"
End If
End Sub
                        