Supposing your comboboxes are all named "ComboBox" plus the serial number 1, 2, 3, ...
You can loop through them and check the ListIndex property of each one. ListIndex=0 means first row selected, ListIndex=1 means second row selected.
There's a button in your Userform which when pressed counts the selected items and shows the result in two textboxes.
Private Sub btnCountComboSelections_Click()
Dim i As Integer, Count1 As Integer, Count2 As Integer
For i = 1 To 40 '<-- 40 ComboBoxes
If Me.Controls("ComboBox" & i).ListIndex = 0 Then
Count1 = Count1 + 1
Count2 = Count2 + 1
Me.TextBox1.Text = CStr(Count1)
Me.TextBox2.Text = CStr(Count2)