Exit Sub not working

[Ruegen]

I have

'save booking without emailing button
Private Sub Button_SaveBooking_Click()


Call RemainingSeatsUpdate


If Calc < 0 Then
    MsgBox "You cannot save as you have gone below the allowed seating."
    Exit Sub
End If


If InvalidEmailCheck(Me.Text_TeacherEmail) = True Then
    MsgBox "The email you have provided is not valid, please correct this."
    Exit Sub
End If


If tagMustComplete("MustComplete", Me.Form, Me.Text_TeacherEmail.BorderColor) = True Then
    MsgBox "You must complete the form before saving."
    Exit Sub
End If




Call saveUpdate(BookingID, TeacherID)


DoCmd.Close acForm, Me.Form.Name, acSaveNo


End Sub

however the code is not exiting - it continues on to the "Call saveUpdate()" function which means runs through it when I don't want it to..????????

[pbaldy]

I've never seen it fail. Are you sure code gets there? Do you get a message box?