Insertar datos formato fechas en celdas con formulario

Tengo una hoja de excel (2010) donde inserto varios datos, mi problema es que uno de los datos es fecha y al insertarlo en la celda no lo pasa en formato de fecha.

Private Sub ButAceptar_Click()

Dim SigFIla As Long
Hoja2.Select 'Seleccionar la hoja 2
SigFIla = WorksheetFunction.CountA(Range("A:A")) + 1 'Buscar fila vacía
Cells(SigFIla, 1).Value = TextFecha.Text 'Grabar la información
Cells(SigFIla, 2).Value = ListNombre
Cells(SigFIla, 3).Value = TextCargo.Text
Cells(SigFIla, 4).Value = TextAbono.Text
Cells(SigFIla, 5).Value = TextObservaciones.Text

TextFecha.Text = ""
TextCargo.Text = ""
TextAbono.Text = ""
TextObservaciones.Text = ""

TextFecha.SetFocus

End Sub

Private Sub TextFecha_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextFecha = Format(TextFecha, "dd-mmm-yy")
' ActiveCell = Format(TextFecha, "DD/MM/YYYY")

End Sub