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

Private Sub Command1_Click()

On Error GoTo Errors

' код

	Exit Sub

Errors:

' код по ошибке

End Sub

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

Более подробно почитайте в разделе VBA, так как обработка аналогичная "Шаг 12 - Обработка ошибок VBA". И есть объект 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

Это пример, а подробнее опять есть в VBA: "Шаг 13 - Объект Err".