Thanks mdlueck. I am guessing that anything that the breakpoint doesn't stop at is what is important or not working? if so it skipped the purpled lines....
If Me.SubjChoiceID.Selected(X) = True And Nz(Len(Me.SubjChoiceID.Column(0, X)), 0) > 0 Then
strIDs = strIDs & Me.SubjChoiceID(0, X) &...