UserForm OptionButtons

When none of the option button is selected and Next is clicked, a message box "non selected" is shown else the ( name) of the optionbutton value is shown. This code works fine. but is there another way of doing same thing, using For Each loop or Arrays or something? as I have 200 different option buttons and it's hard to write ''''if then''''' statement for all of them.

Private Sub NextButton_Click()
Dim TypeChart As String
i = o
bFlag = False

If OptionButton1 = True Then
TypeChart = "xlConeBarClustered"
bFlag = True
End If

If OptionButton2 = True Then
TypeChart = "xlXYScatterLinesNoMarkers"
bFlag = True
End If.................