' get the index of the active OptionButton in an arrayFunction OptionButtonIndex(optArray As Object) As Integer Dim ctrl As Control ' this means not found OptionButtonIndex = -1 For Each ctrl In optArray If ctrl.value Then OptionButtonIndex = ctrl.Index Exit For End If NextEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
