Dim vbC As VBIDE.VBComponent
    ' Alle Komponenten im Projekt durchlaufen
    For Each vbC In ThisWorkbook.VBProject.VBComponents
        Select Case vbC.Type
            Case Is = vbext_ct_MSForm
            ' handelt es sich um ein Userform ....
            Debug.Print listAllControls(?? vbC.Type ??vbC.Name ... )
...
 
Public Function listAllControls(myForm As UserForm) As Boolean
    Dim cnt As control
    'Alle Controls des UserForms
    For Each cnt In Me.Controls
        Debug.Print cnt.Name
    Next
 
End Function