zwei comboboxen auslesen

Dim i As Integer
Dim j As Integer
j = [5,8,9,11,12]
For i = 0 To 5
If ComboBox2 = ComboBox6 = ComboBox7 = ComboBox10 = ComboBox13  = "yes" Then
If ComboBoxj = "no" Then i = i + 1
End If
Next i
Worksheets("Tabelle1").Shapes("Textfeld 1").TextFrame.Characters.Text = "Deutschland ist alles  _
ja und Amerika hat" & i & "no's"
End With

Leider funktioniert es nicht richtig. Ausserdem würde ich mir gerne anzeigen lassen, wenn Deutschland 1,2,3,4,5 mal no's hat und Amerika 1,2,3,4 bis zu 5 mal No. Ich denke die Schwierigkeit liegt auch darin, dass die ComboBoxen nicht in Zahlenfolge gelistet sind?
Viele Grüße, Dee