Issue with Error Checking

So I recently went through and changed some coding around in a form that I made to feed data into a calendar. I added in audienceCombobox and removed all these other checkboxes I had before.

What is happening now is that with this code below, whenever I fill in all fields and click "Enter Project" nothing happens. But if I take out the first line in

Sub enterButton

Which is

  If Not CheckInputs Then Exit Sub 'check for fields to have values

then the project will be entered fine however I lose my ability to error check and make sure that all fields have a value.

Any ideas on what could be causing this issue?

Private Sub enterButton_Click()

    If Not CheckInputs Then Exit Sub 'check for fields to have values
    Process GetWs(Me.impactCombobox.Value) ' process data passing the proper worksheet got from GetWs() function
    MsgBox "Project Entered Successfully"
    ClearUFData 'clear the data
End Sub   

Function CheckInputs() As Boolean
    If Not CheckControl(Me.nameTextbox, "Please enter your Name") Then Exit Function
    If Not CheckControl(Me.projectTextbox, "Please enter a Project Name") Then Exit Function
    If Not CheckControl(Me.initiativeCombobox, "Please select an Initiative") Then Exit Function
    If Not CheckControl(Me.impactCombobox, "Please select an Impact Type") Then Exit Function
    If Not CheckControl(Me.lengthListbox, "") Then If Not CheckControl(Me.lengthListbox2, "Please select Project Length") Then Exit Function
    If Not CheckControl(Me.audienceCombobox, "Please select an Audience") Then Exit Function
    Exit Function

    CheckInputs = True
End Function

Private Function CountSelectedListBoxItems(lb As MSForms.ListBox) As Long
    Dim i As Long
    With lb
        For i = 0 To .ListCount - 1
            If .Selected(i) Then CountSelectedListBoxItems = CountSelectedListBoxItems + 1
        Next i
    End With
End Function

Function CheckControl(ctrl As MSForms.Control, errMsg As String) As Boolean
    Select Case TypeName(ctrl)
        Case "TextBox"
            CheckControl = Trim(ctrl.Value) <> ""
        Case "ComboBox"
            CheckControl = ctrl.ListIndex <> -1
        Case "ListBox"
            CheckControl = CountSelectedListBoxItems(ctrl) > 0
'        Case Else
    End Select
    If errMsg = "" Then Exit Function
    If CheckControl Then Exit Function
    ctrl.SetFocus
    MsgBox errMsg
End Function

Picture of what my userform looks like is below.

Thanks, that fixed it... I feel very sad that I didn't manage to catch that haha.

A case of the Mondays I guess