# Revision history [back]

Here is the answer using a macro that runs on a button on the same form, and it returns the the value for the active radio button in a message box. The below checks the state of each button and returns the reference of the activated button. For demonstration, it completes using the SecondaryRefValue but for just one button on assumption that if none are active all are inactive with the same secondary reference value, as you say in your question.

Sub radio (eventObj As Object)
REM Dim srcObj, buttonObj, parFrm As Object
Dim valStr As String

srcObj = eventObj.Source
buttonObj = srcObj.model
parFrm = buttonObj.parent