Formato fecha DD MMM AA

Hola, ¿buen día tengo el siguiente problema
tengo un CommandButton donde ingreso datos pero al momento de ingresar una fecha no me respeta el formato es decir yo capturo 10/01/09 y me coloca Ene/10/09 primero me pone el mes/día/año que tengo que hacer?
Private Sub CommandButton1_Click()
    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" _
    Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then
        MsgBox "Debe completar todos los campos"
    Else
        Dim w As Worksheet
        Set w = Sheets(1)
        x = LTrim(Str(w.Range("A1").End(xlDown).Row + 1))
        Range("A" & x).Value = TextBox1.Text
        Range("B" & x).Value = TextBox2.Text
        Range("C" & x).Value = TextBox3.Text
        Range("D" & x).Value = TextBox4.Text
        Range("E" & x).Value = TextBox5.Text
        Range("F" & x).Value = TextBox6.Text
    End If
End Sub
Saludos