I have a bit of code tied into a form. On the form are 2 lists. I want the user to pick from either of the two lists and when they hit click the ENTER button, one of the two sections of code will run based on which list they selected. I can't seem to figure out how to make it run one part and not the other. I get both MSGBOXs one after the other. Your help/advice/input is greatly appreciated.
Ken

Private Sub Enter_Click()

        
        'check to see if positive behavior list selected
        If Positive_Behaviors_List.Text <> "" Then
        Sheets("Multiples").Range("k6") = Positive_Behaviors_List.Text
        End If
        
        x = Sheets("Multiples").Range("k6")
        For Each ws In Sheets(Array("Student 01", "Student 02", "Student 03", "Student 04", "Student 05", "Student 06", "Student 07", "Student 08", "Student 09", "Student 10", "Student 11", "Student 12", "Student 13", "Student 14", "Student 15", "Student 16", "Student 17", "Student 18", "Student 19", "Student 20", "Student 21", "Student 22", "Student 23", "Student 24", "Student 25", "Student 26", "Student 27", "Student 28", "Student 29", "Student 30"))
        
        If Sheets("TableAssignments").Range("T" & Right(ws.Name, 2)).Value <> False Then
        ws.Range("B" & Rows.Count).End(3)(2) = x
        End If
        
Next ws
          
        Beep
        MsgBox "You Earned Points"
        Unload Me
          
        'if not then run the following
        If Negative_Behaviors_List.Text <> "" Then
        Sheets("Multiples").Range("k6") = Negative_Behaviors_List.Text
        End If
        
        x = Sheets("Multiples").Range("k6")
        For Each ws In Sheets(Array("Student 01", "Student 02", "Student 03", "Student 04", "Student 05", "Student 06", "Student 07", "Student 08", "Student 09", "Student 10", "Student 11", "Student 12", "Student 13", "Student 14", "Student 15", "Student 16", "Student 17", "Student 18", "Student 19", "Student 20", "Student 21", "Student 22", "Student 23", "Student 24", "Student 25", "Student 26", "Student 27", "Student 28", "Student 29", "Student 30"))
        
        If Sheets("TableAssignments").Range("T" & Right(ws.Name, 2)).Value <> False Then
        ws.Range("B" & Rows.Count).End(3)(2) = x
        End If
        
Next ws
        Beep
        MsgBox "Make a Better Choice"
        Unload Me
          
 End Sub