Place a frame object on your user form, and then insert 5 option buttons
within the frame.

In the form's code module you can use the following code as long as the
option button have their default names and the worksheet you want to update
is sheet 1, if not modify the code as needed:

'The following private function has one
'argument, the buttons number

Private Sub OnOff(intButton As Integer)

   Dim ws As Worksheet
   Dim rng As Range
   Dim i As Integer
   Dim blnOnOff(4) As Boolean

   Set ws = ThisWorkbook.Sheets(1)
   Set rng = ws.Range("A1")
   
   Select Case intButton
       Case 1
           blnOnOff(0) = True
           blnOnOff(1) = False
           blnOnOff(2) = False
           blnOnOff(3) = False
           blnOnOff(4) = False
       Case 2
           blnOnOff(0) = False
           blnOnOff(1) = True
           blnOnOff(2) = False
           blnOnOff(3) = False
           blnOnOff(4) = False
       Case 3
           blnOnOff(0) = False
           blnOnOff(1) = False
           blnOnOff(2) = True
           blnOnOff(3) = False
           blnOnOff(4) = False
       Case 4
           blnOnOff(0) = False
           blnOnOff(1) = False
           blnOnOff(2) = False
           blnOnOff(3) = True
           blnOnOff(4) = False
       Case 5
           blnOnOff(0) = False
           blnOnOff(1) = False
           blnOnOff(2) = False
           blnOnOff(3) = False
           blnOnOff(4) = True
   End Select
   
   For i = 0 To 4
       rng.Offset(i).Value = blnOnOff(i)
   Next i
   
   Set ws = Nothing
   Set rng = Nothing
End Sub

'To each option button assign the sub using the
'option button's number as the argument

Private Sub OptionButton1_Change()

   OnOff 1
   
End Sub

Private Sub OptionButton2_Change()

   OnOff 2
   
End Sub

Private Sub OptionButton3_Change()

   OnOff 3
End Sub

Private Sub OptionButton4_Change()

   OnOff 4
   
End Sub

Private Sub OptionButton5_Change()

   OnOff 5
   
End Sub