Macro Excel Checkbox con if y else

Estoy haciendo un checkbox y quiero que al marcarlo aparezca un cuadro de dialogo preguntando por un numero y al introducirlo este aparezca en una celda determinada.

Lo que tengo hasta ahora es esto:

Private Sub CheckBox1_Click()
If CkeckBox1.Value = True Then
Nombre = InputBox("Nº de Expediente:")
Range("L27").Value = Nombre
Else
Range("L27").Select
Selection.ClearContents
End If

End Sub