Hello Everyone,
I have a simple logic error here i'm sure, somewhere here. I am trying to return a string from this function. Any help is appreciated! 
Code:
Function FindExportQuery(Optional numberInput As Integer)
If IsMissing(numberInput) = True Then
If Me.radioGroup.Value = 3 And listBox.ListCount = 0 Then
strQueryName = "Degree_Completions_No_CIP"
ElseIf Me.radioGroup.Value = 2 And listBox.ListCount = 0 Then
strQueryName = "Enrollment_Data_No_CIP"
ElseIf Me.radioGroup.Value = 3 And listBox.ListCount > 0 Then
strQueryName = "Degree_Completion_Results"
ElseIf Me.radioGroup.Value = 2 And listBox.ListCount > 0 Then
strQueryName = "Enrollment_Results"
End If
Else
If numberInput = 1 Then
strQueryName = "Degree_Completions_No_CIP"
ElseIf numberInput = 2 Then
strQueryName = "Enrollment_Data_No_CIP"
ElseIf numberInput = 3 Then
strQueryName = "Enrollment_Results"
ElseIf numberInput = 4 Then
strQueryName = "Degree_Completion_Results"
End If
End If
FindExportQuery = strQueryName
End Function