Yikes! I hate to say this, but

YOU ARE RIGHT!

Code:
Option Explicit

Private Sub Form_Activate()
On Error GoTo MyError
    Err.Raise 5
    Exit Sub

MyError:
    MsgBox Err.Description
    Err.Raise 13
End Sub
I shall seek solace in proving you right in fewer lines of code!

.