Sub Test_Resume_Next() On Error Goto the_label Err.Raise 9 Msgbox "After Error" Exit sub the_label: Resume Next End Sub