вопрос по visual basic..

Разработать приложение, позволяющее найти максимальное значение в массиве из 5 цифр.

Private Sub dobavit_Click()
spisok.AddItem chislo.Text
kolich = kolich + 1
chisarr(kolich) = chislo.Text
chislo.Text = ""
chislo.SetFocus
End Sub

Private Sub najti_Click()

Dim max As Single
Dim i As Integer
max = chisarr(1)
For i = 2 To kolich
If max < chisarr(i) Then max = chisarr(i)
Next i
result.Caption = max
End Sub

Private Sub zakr_Click()
Form1.Hide
End Sub

вопрос такой: что и где записать. чтобы при нажатии кнопки "добавить", не введя при этом ничего, возникала не ошибка, а надпись "введи число"


спасибо большое!