Como trabajar con textbox, checkbox y otra vez con textbox en userform de excel

Este es el codigo:

Private Sub cmdgrabar_Click()
Sheets("BASE_DATOS").Select
Range("B4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
If CheckBox1 = True Then
ActiveCell = "Si"
Else
If CheckBox2 = True Then
ActiveCell = "No"
End If
End If
ActiveCell.Offset(0, 1).Select
If CheckBox3 = True Then
ActiveCell = "No"
Else
If CheckBox4 = True Then
ActiveCell = "Si"
End If
End If
ActiveCell.Offset(0, 1).Select
If CheckBox5 = True Then
ActiveCell = "No"
Else
If CheckBox6 = True Then
ActiveCell = "Si"
End If
End If
ActiveCell.Offset(0, 1).Select
If CheckBox7 = True Then
ActiveCell = "No"
Else
If CheckBox8 = True Then
ActiveCell = "Si"
End If
End If
ActiveCell.Offset(0, 1).Select
If CheckBox9 = True Then
ActiveCell = "No"
Else
If CheckBox10 = True Then
ActiveCell = "Si"
End If
End If
ActiveCell.Offset(0, 1).Select
If CheckBox11 = True Then
ActiveCell = "No_cumple"
Else
If CheckBox12 = True Then
ActiveCell = "Si_cumple"
End If
End If
End Sub

No me envia los datos de los checkbox a los campos en excel......de antemano gracias por su atención.