Error al almacenar fecha en un textbox

Hola, como siempre con otra duda, aunque ya he visto algunos temas relacionados, como lo de la configuración regional dentro del S.O o el cdate(que no se como aplicarlo a mi código) aun me persiste el error en un formulario, de que al ingresar una fecha, esta se almacena en las celdas guardando primero el mes y luego el dia en el formato 01-02-2013 en vez de 02-01-2013. Parte del código que utilizo es el siguiente:

Private Sub CommandButton1_Click()
Sheets("dboc").Activate
If TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" _
Or TextBox11 = "" Or TextBox11 = "" Then
MsgBox "el campo orden de compra, fecha, valor , o proveedor no pueden estar en blanco", vbExclamation, ""
TextBox3.SetFocus
Else
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = TextBox2.Value
ActiveCell.Offset(0, 1) = TextBox3.Value
ActiveCell.Offset(0, 2) = TextBox4.Value
ActiveCell.Offset(0, 3) = TextBox5.Value
donde textbox3 es fecha.

adjunto archivo.

<a>http://sdrv.ms/15AJbvc</a>

desde ya gracias.