Formato de Fecha en Textbox y cambio de datos

Hola A Todos:

Estoy buscando ayuda para algo que me ha quedado pendiente y necesito
solucionarlo. Fernando Arroyo me había dado una solución para llenar unos
textbox con datos de una hoja. La solución funciona pero me surgen dos
trabas.
Lo que busco es encontrar una solución para dos problemas.

1) Con el código que copio debajo se llenan unos TextBox con los datos de
una hoja. El problema que me surge es que uno de los datos tiene un valor de
fecha (24/04/2002), pero al devolverlo al textbox lo devuelve con el formato
de número (37370), y necesito que se vea cual es la fecha.
¿Esto tiene solución?, ¿Cómo lo puedo hacer?

Y lo otro que necesito es lo siguiente:
2) ¿Como se puede haer para que cuando modifique un valor en el textbox lo
modifique en la celda de origen?. La idea es colocar un boton que cuando se
active luego de modificar los datos en el textbox, transfiera se cambios a
las celdadas de donde se tomaron los datos.
¿Esto es posible?, ¿Cómo?

Agradezco desde ya su ayuda.

Saludos,
Marcelo


Private Sub ComboBox8_AfterUpdate()
Dim Texto As String
Texto = ComboBox8.Value
Sheets("A.T.").Range("V1").Value = Texto

If ComboBox8 <> "" Then TextBox9 WorksheetFunction.VLookup(Worksheets("A.T.").Range("V1"),
Sheets("A.T.").Range("A:U"), 2, False)
If ComboBox8 = "" Then TextBox9 = ""
If ComboBox8 <> "" Then TextBox10 WorksheetFunction.VLookup(Worksheets("A.T.").Range("V1"),
Sheets("A.T.").Range("A:U"), 3, False)
If ComboBox8 = "" Then TextBox10 = ""

End Sub