como puedo pasar de texto a fecha en un textbox

[jhony29]

antes de nada decir que no tengo mucha idea de esto, estoy haciendo algunos pinitos ahora
tengo un campo donde tengo que rellenar una fecha, para que me la devuelva en una base de datos de excel, preferiblemente en formato largo, pero me la devuelve como texto. La columna donde va esa informacion la tengo con formato de fecha.
Lo siguiente es lo que tengo:

Private Sub CommandButton2_Click()
Sheets("partes").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = Val(TextBox2)
ActiveCell.Offset(0, 4).Select
ActiveCell = Val(TextBox3)
ActiveCell.Offset(0, 1).Select
ActiveCell = Val(TextBox4)
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 1).Select

Lo mismo que en textbox2 pongo "val·" y me lo convierte en numero, quisiera saber que le puedo poner delante a textbox1 para que me lo convierta en fecha.
Y lo mismo queria hacer con textbox5, para que me lo convirtiera en formato general.
Gracias de antemano