Checkbox en Userform que cargue los valores 1 i 0

Tomando como punto de partida el Userfomr1 de los EjemplosMacros03 de la experta Elsamatilde para entrada de datos, quisiera incorporar un checkbox que cargue en la hoja de cálculo los valores "1" y "0" en vez de "verdadero" y "falso", respectivamente.
¿Cómo hacerlo?
Copio el código del ejemplo con el checkbox añadido:
Option Explicit
Private Sub cmdAceptar_Click()
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
'Comienza a copiar los valores del UserForm a la hoja
Cells(fila, col).Value = TextBox1.Value
Cells(fila, col + 1).Value = TextBox2.Value
Cells(fila, col + 2).Value = TextBox3.Value
Cells(fila, col + 3).Value = CheckBox1.Value
Set CeldaInicial = Nothing
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
CheckBox1 = ""
TextBox1.SetFocus
End Sub
Private Sub UserForm_Layout()
Me.Move 250, 300
End Sub
Gracias.