Завершает процедуру или блок.

End		Завершает выполнение.  Никогда не является обязательной, но может быть помещена в любое место 
		процедуры для закрытия файлов, открытых с помощью инструкции Open, и для очистки переменных.
End Function	Обязательная инструкция для завершения конструкции Function.
End If		Обязательная инструкция для завершения конструкции If…Then…Else.
End Property	Обязательная инструкция для завершения конструкций Property Let, Property Get или Property Set.
End Select	Обязательная инструкция для завершения конструкции Select Case.
End Sub		Обязательная инструкция для завершения конструкции Sub.
End Type		Обязательная инструкция для завершения описания определяемого пользователем типа (конструкция Type).
End With		Обязательная инструкция для завершения конструкции With.

Замечания
При выполнении инструкции End производится сброс всех переменных на уровне модуля и всех статических локальных переменных во всех модулях. Если требуется сохранить значения этих переменных, следует использовать инструкцию Stop. Затем можно возобновить выполнение с использованием сохраненных значений этих переменных.
Инструкция End мгновенно останавливает выполнение программы, не вызывая события Unload, QueryUnload или Terminate, а также другую программу Visual Basic. Программы, связанные с событиями Unload, QueryUnload и Terminate форм и модулей классов, не выполняются. Созданные из модулей классов объекты уничтожаются, открытые инструкцией Open файлы закрываются, а использованная программой память освобождается. Ссылки на объекты, содержащиеся в других программах, нарушаются.
Инструкция End предоставляет способ вызвать непредусмотренную остановку программы. Для нормального завершения программы Visual Basic необходимо выгрузить все формы. Программа закрывается, как только не станет других программ, содержащих ссылки на объекты, созданные из общих модулей классов, и отсутствует выполнение кода программы.

Пример
В данном примере инструкция End используется для завершения выполнения программы, если пользователь введет неправильный пароль.

Sub Form_Load
	Dim Password, Pword
	PassWord = "МОЙ_ПАРОЛЬ"
	Pword = InputBox("Введите пароль
	If Pword <> PassWord Then
		MsgBox "Неправильный пароль"
		End
	End If
End Sub