Yes, and Yes.
I've reduced the code to:

Private Sub Application_Startup()
MsgBox "test"
end sub

still doesn't work