Forms VisualBasic Script

Private Sub CheckBox1_Click()
         If CheckBox1.Value Then
             Range("B1").Value = 0.33
         Else
             Range("B1").Value = 0.3
         End If
     End Sub