Option Explicit
Private Sub UserForm_Activate()
Dim objControl As MSForms.Control
Dim strTypeOf As String, strTypeName As String
For Each objControl In Controls
If TypeOf objControl Is MSForms.CheckBox Then _
strTypeOf = strTypeOf & objControl.Name & vbCr
If TypeName(objControl) = "CheckBox" Then _
strTypeName = strTypeName & objControl.Name & vbCr
Next
Call MsgBox(strTypeOf, vbExclamation)
Call MsgBox(strTypeName, vbExclamation)
End Sub