Чтобы проверить действительное число, вы можете использовать числовую функцию в событии оставления текстового поля.Если он не числовой, установите фокус обратно в текстовое поле1.Сравните значение int (x) с x, чтобы увидеть, является ли оно целым числом.
If Not IsNumeric(txAngle.Text) Then
MsgBox("Enter a number between -360 and 360.")
txAngle.Focus()
else
x = CDbl(txAngle.Text)
if int(x) <> x then ' test for integer
...
end if