Function GetOptionButtonCaption(grp As OptionGroup) As String
' Т.е. есть группа CheckBox'ов, один выбран, рядом с ним текст - название выбранного. Как его узнать?
Dim ctrl As Control
    
    For Each ctrl In grp.Controls
        If ctrl.ControlType = acOptionButton Or ctrl.ControlType = acCheckBox Then
            If grp.Value = ctrl.OptionValue Then
                GetOptionButtonCaption = ctrl.Controls(0).Caption
                Exit Function
            End If
        End If
    Next
End Function