Стандартный код обработки ошибки выглядит так:

Private Sub Command1_Click()
On Error GoTo Errors
' код
	Exit Sub
Errors:
' код по ошибке
End Sub

Обратите внимание на Exit Sub. Именно Exit Sub, так как применить End Sub нельзя, так как с помощью него определяется окончание всей процедуры. Если Вы напишете End Sub, то при сборке приложения получите ошибку:

Есть объект Err, который умеет сам генерировать ошибку и получать о ней информацию.

Private Sub Command1_Click()
On Error GoTo Error1
	Err.Raise 1001, "Test()", "Это я сделал"
Error1:
	MsgBox "Error detected"
	MsgBox (Str(Err.Number))
	MsgBox (Err.Source)
	MsgBox (Err.Description)
Ends:
End Sub