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

• 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