anzahl Kontrollkästchen in UserForm prüfen

Private Sub CommandButton1_Click()
Dim obj As OLEObject 'variablen deklarieren
Dim i As Long
For Each obj In UserForm2.OLEObjects 'Für alle "Ole Objekte" in der auflistung aller ole  _
objekte im tabellenblatt 1
If obj.progID Like "Forms.CheckBox*" Then 'prüfen ob es sich um eine checkbox handelt
If obj.Object.Value = True Then 'prüfen ob die checkbox angekreuzt ist
i = i + 1 'wenn angekreuzt, dann zählen.
End If
End If
Next obj 'weiter zum nächsten ole objekt in der auflistung
If i = "3" Then
MsgBox "Anzahl der angekreuzten Checkboxen: " & i 'ausgabe
End If
End Sub