Мы создавая приложения обычно создаем формы. Эти формы могут содержать разные данные, как например эта.

И у нас есть необходимость проверять данные которые вводит пользователь. Например индекс должен всегда состоять из цифр. Одной из идей этой проверки является использование событий получения и потери фокуса. Основано это на том, что только один элемент в Windows фокус которого устанавливается курсором мышки. И обычно элементы управления позволяют обрабатывать эти события.

GotFocus  - 	получение фокуса ввода

LastFocus -	потеря фокуса ввода.

Вот теперь мы можем написать код, который будет проверять, что в первом поле в индексе находится число. Пишем код:

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1.Text) Then

 MsgBox "введите индекс плиз.."

 Text1.SetFocus

End If

End Sub

Теперь мы просто не сможем уйти с этого поля пока не введен правильный номер.

Естественно нужно предусмотреть ситуацию если пользователь вообще передумает что то вводить. В данном варианте если пользовать так и не сможет ввести правильное число то программа просто закроется.

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1.Text) Then

	rez = MsgBox("введите индекс плиз..", vbOKCancel, "Error")

	If (rez = vbCancel) Then

		End

	End If

	Text1.SetFocus

End If

End Sub