Auto selecting Option Button

[menmine5]

I have a set of 8 option buttons that I'm trying have auto selected dependent on the textbox value (which is automatically populated from a cell value). The code below does not auto populate the option buttions. Any ideas?

Private Sub TextBox1_Change()
    If TextBox1.Value = 101 Then
        OptionButton1.Value = False
        OptionButton2.Value = True
        OptionButton3.Value = True
        OptionButton4.Value = False
        OptionButton5.Value = True
        OptionButton6.Value = False
        OptionButton7.Value = False
        OptionButton8.Value = True
        OptionButton8.Value = True
        OptionButton9.Value = False
        OptionButton10.Value = True
        OptionButton11.Value = True
        OptionButton12.Value = False
        OptionButton13.Value = False
        OptionButton14.Value = True
        OptionButton15.Value = True
        OptionButton16.Value = False
    End If
            
End Sub