You can also trap which OptionButton was selected if any, as well as reset, using the FormButton "CommandButton1_Click" code below:
Public myB%
Private Sub OptionButton1_Click()
If OptionButton1 = True Then: _
OptionButton2 = False: OptionButton3 = False: OptionButton4 = False: _
OptionButton5 = False: OptionButton6 = False: OptionButton7 = False: myB = 1
End Sub
Private Sub OptionButton2_Click()
If OptionButton2 = True Then: _
OptionButton1 = False: OptionButton3 = False: OptionButton4 = False: _
OptionButton5 = False: OptionButton6 = False: OptionButton7 = False: myB = 2
End Sub
Private Sub OptionButton3_Click()
If OptionButton3 = True Then: _
OptionButton2 = False: OptionButton1 = False: OptionButton4 = False: _
OptionButton5 = False: OptionButton6 = False: OptionButton7 = False: myB = 3
End Sub
Private Sub OptionButton4_Click()
If OptionButton4 = True Then: _
OptionButton2 = False: OptionButton3 = False: OptionButton1 = False: _
OptionButton5 = False: OptionButton6 = False: OptionButton7 = False: myB = 4
End Sub
Private Sub OptionButton5_Click()
If OptionButton5 = True Then: _
OptionButton2 = False: OptionButton3 = False: OptionButton4 = False: _
OptionButton1 = False: OptionButton6 = False: OptionButton7 = False: myB = 5
End Sub
Private Sub OptionButton6_Click()
If OptionButton6 = True Then: _
OptionButton2 = False: OptionButton3 = False: OptionButton4 = False: _
OptionButton5 = False: OptionButton1 = False: OptionButton7 = False: myB = 6
End Sub
Private Sub OptionButton7_Click()
If OptionButton7 = True Then: _
OptionButton2 = False: OptionButton3 = False: OptionButton4 = False: _
OptionButton5 = False: OptionButton1 = False: OptionButton1 = False: myB = 7
End Sub
Private Sub CommandButton1_Click()
Dim i%, myROBut As Control, myBNm$
For Each myROBut In Controls
For i = 1 To 7
myBNm = "OptionButton" & i
If myB = 0 Then GoTo myEnd
If i = myB Then GoTo myFound
Next i
Next myROBut
myFound:
MsgBox "You selected: " & myBNm
myEnd:
If myB = 0 Then MsgBox "You did not select an option!"
End Sub