Suddenly Stopped Working

So I have code that uses a switch to open a specific switchboard depending on the department. It was working just fine. Then when I went to try adding code for the "On Load" on my log in form, it decided to stop working. I was trying to add code so that when the login form opens everything is hidden, and then when the admin logs in everything is shown again.

Here is the code for the switchboards:
Sub Security(SecurityLevel As Integer)
Select Case SecurityLevel
Case 1 'Admin Level
Public Sub UnHideNavPane()
DoCmd.SelectObject acTable, "MSysObjects", True
End Sub

DoCmd.ShowToolbar "Ribbon", acToolbarYes

Case 2 'Pastor Level
DoCmd.OpenForm "Pastor_Switchboard"
Forms![Pastor_Switchboard]![txtLogin] = TempLoginID
Forms![Pastor_Switchboard]![txtUser] = WorkerName

Case 3 'Gues Level
DoCmd.OpenForm "Guest_Switchboard"
Forms![Guest_Switchboard]![txtLogin] = TempLoginID
Forms![Guest_Switchboard]![txtUser] = WorkerName

Case 4 'Children's Ministry Level
DoCmd.OpenForm "Children's_Switchboard"
Forms![Children's_Switchboard]![txtLogin] = TempLoginID
Forms![Children's_Switchboard]![txtUser] = WorkerName

Case 5 'Food Pantry Level
DoCmd.OpenForm "Pantry_Switchboard"
Forms![Pantry_Switchboard]![txtLogin] = TempLoginID
Forms![Pantry_Switchboard]![txtUser] = WorkerName

Case 6 'Music Ministry Level
DoCmd.OpenForm "Music_Switchboard"
Forms![Music_Switchboard]![txtLogin] = TempLoginID
Forms![Music_Switchboard]![txtUser] = WorkerName

Case 7 'Nursery Level
DoCmd.OpenForm "Nursery_Switchboard"
Forms![Nursery_Switchboard]![txtLogin] = TempLoginID
Forms![Nursery_Switchboard]![txtUser] = WorkerName

Case 8 'Sack Lunch Saturday Level
DoCmd.OpenForm "SackLunchSat_Switchboard"
Forms![SackLunchSat_Switchboard]![txtLogin] = TempLoginID
Forms![SackLunchSat_Switchboard]![txtUser] = WorkerName

Case 9 'Secretary Level
DoCmd.OpenForm "Secretary_Switchboard"
Forms![Secretary_Switchboard]![txtLogin] = TempLoginID
Forms![Secretary_Switchboard]![txtUser] = WorkerName

Case 10 'Youth Ministry Level
DoCmd.OpenForm "Youth_Switchboard"
Forms![Youth_Switchboard]![txtLogin] = TempLoginID
Forms![Youth_Switchboard]![txtUser] = WorkerName


Case 11 'Sunday School Level
DoCmd.OpenForm "SS_Switchboard"
Forms![SS_Switchboard]![txtLogin] = TempLoginID
Forms![SS_Switchboard]![txtUser] = WorkerName

Case 12 'Home Group Level
DoCmd.OpenForm "HomeGroup_Switchboard"
Forms![HomeGroup_Switchboard]![txtLogin] = TempLoginID
Forms![HomeGroup_Switchboard]![txtUser] = WorkerName

Case 13 'Committees Level
DoCmd.OpenForm "Committees_Switchboard"
Forms![Committees_Switchboard]![txtLogin] = TempLoginID
Forms![Committees_Switchboard]![txtUser] = WorkerName


End Select
End Sub

I keep getting a "expecting an end sub" error, but there is an end sub...

Here's the code I was playing with that somehow messed this up:

Private Sub Form_Load()
Public Function HideNavPane() As Byte
DoCmd.SelectObject acTable, "MSysObjects", True
DoCmd.RunCommand acCmdWindowHide
End Function

DoCmd.ShowToolbar "Ribbon", acToolbarNo

End Function

Suddenly Stopped Working