şeyle bir kod var

Private Sub dene()
    Dim ctrl As Control
    For Each ctrl In Frame1.Controls
        If TypeOf ctrl Is MSForms.OptionButton Then
            If ctrl.Enabled = True Then
                MsgBox ctrl.Name & " is an enabled OptionButton with caption " & ctrl.Caption
            End If
        End If
    Next
End Sub