Stop routine with error handling

Can someone give me a hint in the rigth direction.
I have a routine which give a check on a certain state in my excel sheet. Based on that state the routine will give an error.
I would like to use this error to stop the following routine which shouldn’t run after this error.
These are to separate routine which are called after each other with another routine.
I have something like this in the first code:

Please Login or Register  to view this content.

The second code has this:

Please Login or Register  to view this content.

So the first routine should stop the second one on error from running.
However this code isn’t working.

Thanks for your swift reply.
The first code calls the second one with Call second sub.

As for the Exit Sub. This should be the case only when the error has occured
So that's not good.
I'm pretty new to vba so i'm trying but I need some help with this.

Yes ther is a third piece of code.

Please Login or Register  to view this content.

The "Sheet#" routine calls the "Finalize" routine. When the stae of one cell in the excel sheet is "vbNoPermissionFinalization" the last "boxcheck" routine should not run.
However the state of the cell rad during the start of the "finalize" routine and changed later in the code by the "finalize" routine. Therefore the "OKButton" routine should be stooped by the finalize routine.
Maybe I should do something with "function" but I'm a newbee on vba so I was happy to get this far already.
I hope it's a bit more clear now. Thanks for your patience anyway.

Sub createError(ByVal errorType As Integer)
If errorType = vbNoPermissionSubmission Then MsgBox ("Submitting is not permitted"), vbExclamation
If errorType = vbNoPermissionRejection Then MsgBox ("Rejection is not permitted"), vbExclamation
If errorType = vbNoPermissionFinalization Then MsgBox ("Finalization is not permitted"), vbExclamation
If errorType = vbMissingOrderNumber Then MsgBox ("Order Number is required"), vbExclamation
If errorType = vbProjectManagerMissing Then MsgBox ("Project Manager is required"), vbExclamation
If errorType = vbSalesEngineerMissing Then MsgBox ("Sales Force Member is required"), vbExclamation
If errorType = vbClientMissing Then MsgBox ("Client is required"), vbExclamation
If errorType = vbRevisionError Then MsgBox ("Revision number in the filename is wrong, revision number from Excel Workbook will be used instead"), vbExclamation
If errorType = vbProtected Then MsgBox ("The IPO is protected, unprotect to proceed"), vbExclamation
If errorType = vbUnprotected Then MsgBox ("The IPO is already unprotected"), vbExclamation
If errorType = vbInvalidPath Then MsgBox ("Please save the IPO on the network, it is now saved on your PC"), vbExclamation
End Sub

That's true it's a message box. I'haven't worked with the function parts so I have to figure that out.
Thanks for putting me back to the start . This saves me a lot of time hidding ht worng way.