Change checkbox result value - vba

Question

Everything is working fine in this code like adding the checkboxes etc.. except for 2 things;
the main one is: the condition to change the value (at the very bottom of the code) is not working
and the other one is: the delete checkboxes (at the very first of the code) doesn't seem to work properly because sometimes i find more than 1 checkbox have been created in 1 cell
how do i upload the file here to clear things up ?
Sub AddCheckBoxes()
Dim i, LRow As Single
Dim MyLeft, MyTop, MyHeight, MyWidth As Double
Application.ScreenUpdating = False
LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LRow
If Cells(i, "A").Value <> "" Then
If Cells(i, "C").Value <> "" Then
Cells(i, "C").ClearContents
ActiveSheet.Shapes.Cells(i, "C").Select
Selection.delete
ElseIf IsEmpty(Cells(i, "C")) Then
MyLeft = Cells(i, "C").Left
MyTop = Cells(i, "C").Top
MyHeight = Cells(i, "C").Height
MyWidth = Cells(i, "C").Width
Set cbx = ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight)
With cbx
.Name = "CheckBox" & i
.Caption = ""
.Display3DShading = False
End With
End If
If cbx.Value = xlOff Then
Range("B" & i).Value = 1
ElseIf cbx.Value = xlOn Then
Range("B" & i).Value = 2
End If
End If
Next i
Application.ScreenUpdating = True
End Sub