Помогите с Чекбоксом!

Sub Button_Click()
FlexGrid.Text = Text1.Text
If FlexGrid.Col < FlexGrid.Cols - 1 Then 'если не последняя колонка
FlexGrid.Col = FlexGrid.Col + 1
End if
End sub

If FlexGrid.TextMatrix(ROWNUM, COLNUM) <> '' Then
FlexGrid.TextMatrix(ROWNUM, COLNUM + 1) = TextBox.Text
End if

Dim Row as Long,Col as Long
Row=1:Col=1 'Начало тавлицы: A1
 
Private Sub CommandButton1_Click()
    If CheckBox1.Value = -1 Then DoWrite Row
    If CheckBox2.Value = -1 Then DoWrite Row+1
    If CheckBox3.Value = -1 Then DoWrite Row+2
    If CheckBox4.Value = -1 Then DoWrite Row+3
    If CheckBox5.Value = -1 Then DoWrite Row+4
    If CheckBox6.Value = -1 Then DoWrite Row+5
    If CheckBox7.Value = -1 Then DoWrite Row+6
    If CheckBox8.Value = -1 Then DoWrite Row+7
    If CheckBox9.Value = -1 Then DoWrite Row+8
    If CheckBox10.Value = -1 Then DoWrite Row+9
End Sub
Sub DoWrite(N As Integer)
    Ccol = Col - 1: crow = Row + i
    Do
      Ccol = Ccol + 1
      cell = Cells(N, Ccol)
    Loop While cell <> ''
    Cells(N, Ccol) = TextBox1.Text
End Sub