[LoryOne]

L'errore te lo darà per quell' [A1]=CDate(Textbox1).
Supponendo che [A1] altro non sia che la cella A1, il problema si ridurrebbe a queste semplici righe:

s_Data$=Format$(TextBox1, "00/00/0000")) 
If IsDate(s_Data$)= False Then
       MsgBox "La data immessa non é esatta!"
Else
       TextBox1=vbNullString
       Range("A1").Select
       Selection.Value=s_Data$
End If