determine which option (radio) button is active

Here is a function I made up (with tips from Hannesthegreat and Wof)..might come in handy....

Code:

---

'Determines & returns which option button in an array is presently active
'Returns -1 when none are active (such as at initialization)
'example:  text3.text=str(WhichOptionActive(optRadioButtonBank1))
'
Public Function WhichOptActive(CtrlArr As Variant) As Integer
Dim Cntrl As Control
WhichOptActive = -1  'default, if none active
For Each Cntrl In CtrlArr
  If Cntrl.Value = True Then      'look for active option button
  WhichOptActive = Cntrl.Index
  Exit Function  'if found, get out now
  End If
Next Cntrl
End Function

---

None of us EVER post code without using CODE TAGS!!!

Code:

---

' Please learn how to use them, or don't post any more code.

---

That didn't really help anyone, so who will search for it? Add it to your other post instead