Private Sub CB_Click()
Dim dat As Variant
With CB.Parent.Controls(CB.Parent.Tag)
If CB.Name <> "C12" Then .Text = .Text & CB.Caption _
Else .Text = Left(.Text, IIf(Len(.Text), Len(.Text), 1) - 1)
Range("A" & Right(.Name, 1)) = "" 'RAZ
dat = ExecuteExcel4Macro("DATEVALUE(""" & .Text & """)")
If IsNumeric(dat) Then Range("A" & Right(.Name, 1)) = CDate(.Text)
.SetFocus
End With
End Sub