Use of Check Box and Option Button in VB

Private Sub chkBOLD_Click()
If chkBOLD.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

Private Sub chkIT_Click()
If chkIT.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub

Private Sub chkUN_Click()
If chkUN.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub optBLUE_Click()
Text1.ForeColor = vbBlue
End Sub

Private Sub optGREEN_Click()
Text1.ForeColor = vbGreen
End Sub

Private Sub optRED_Click()
Text1.ForeColor = vbRed
End Sub