I keep getting the following error:
Compile error: Expected End Sub
Can someone show me what I'm doing wrong & how to rewrite?

Code:
Private Sub Exit_Click()

DoCmd.GoToRecord , , acNewRec

Function User_Form_macro()
On Error GoTo User_Form_macro_Err

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Collector_SI_Code query", acViewNormal, acEdit
    DoCmd.OpenForm
...