[Spirosgr]

Δεν θα ήθελα, να μπώ σε καμία αντιπαράθεση, με λύσεις από άλλα sites ή
γιατί δεν ανεβάζεις ένα αρχείο, να δούμε το πρόβλημα επί πραγματικού.

Για όσους ενδιαφέρονται, η πραγματική λύση είναι:

Private Sub CommandButton1_Click()
    Dim Lrow As Long
    Lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheet1.Cells(Lrow, 1).NumberFormat = "dd/mm/yyyy"
    Sheet1.Cells(Lrow, 1).Value = DateValue(Me.TextBox1.Text)
End Sub

Σημειώσεις:
Ο κώδικας απ'ευθείας στο κουμπί που εισάγει την τιμή (ημερομηνία) στο τελευταίο κενό κελί της Α στήλης
και όχι σε BeforeUpdate
Μορφοποίηση ημερομηνίας πχ 02/05/2015
Όπου Sheet1 το κωδικό όνομα του φύλλου.