Datum kommt als Text an

Wenn ich mit dem unten aufgefürten Code aus einer Userform das Datum in A1 der Tabelle einfüge so sieht Excel das als Text an.
Wo liegt mein Fehler ?

Private Sub CommandButton1_Click()
Set Frm = UserForm1
With Sheets("Zähler")
Range("A1").Select
End With
With Frm
ActiveCell.Value = .TextBox1.Value
Unload Me
End Sub

Gruß
Rainer