Private cFrame As msforms.Frame ' cFrame hier deklarieren, sonst hast Du nur in 
' der Sub Zugriff in der es deklariert ist.
 
Private Sub CommandButton1_Click()
Dim cControl As Control
 
For Each cControl In cFrame.Controls
  MsgBox cControl.Name
Next
 
End Sub
 
Private Sub UserForm_Activate()
Dim cObtn As msforms.OptionButton
 
Set cFrame = Me.Controls.Add("Forms.Frame.1", "frmWBZ", True)
Set cObtn = cFrame.Controls.Add("Forms.OptionButton.1", "obtnWBZ" & Format( _
  iZaehler, "00"), True)
 
End Sub