Private Sub CommandButton1_Click()
Dim lr&, col1&, col2&, i&, j&, s&
col1 = TextBox1
lr = ActiveSheet.Cells(Rows.Count, col1).End(xlUp).Row - 1
col2 = TextBox2
For i = 2 To lr
For j = 1 To 3
If Me.Controls("OptionButton" & j) = True Then
col2.Value = VBA.Split(s.Cells(i, col1).Text, "-")(Me.Controls("OptionButton" & j).TabIndex)
End If
Next j
Next i
End Sub