Как проверить вводимые данные в вба?

Question

Задача в следующем: необходимо проверить вводятся ли целые неотрицательные числа (чтобы было нагляднее "количество"). Спасибо!

Nata D · Accepted Answer

Фукнция Val() 
 
if val(a)>0 then...

Мария Руденко · Answer

Manunich немного не прав, надо оредилить целые положительные числа, его код просто оредиляет положительные. 
вернее будет 
 
Dim d As Single 
d = Text1.Text 
If d <> CInt(d) Or d < 0 Then 
Exit Sub 
Else 
' ваш дальнейший код 
End If