Problemas con fechas

[illoldi]

Buenas tardes, antes que todo gracias por su tiempo, he estado navegando dentro de la pagina para ver si mi problema ya se había presentado pero no logre encontrar algo sobre exactamente mi problema.

Estoy realizando un programa en excel, básicamente sobre inventarios con entradas, salidas y servicios; he estado navegando y viendo tutoriales para poder aterrizar mis necesidades y cuando ya tengo terminado bien o mal lo que necesito (por que ciertas cosas, supongo que las podría tener mejor pero ya no he avanzado mas en la investigación para mejorarlo) me surgió un problema con las fechas, en concreto tengo 3 botones (entradas, salidas y servicios) cada uno me despliega una "userform" para llenar con datos en diferentes "textbox" y dos "commandbutton" uno para "aceptar" o "cancelar" el ingreso, hay un "textbox" para la fecha de ingreso (que se supone en el programa pone la fecha actual del sistema cuando este "textbox" se deja en blanco) y otro "textbox" para poner fecha caducidad, al correr el programa lleno los campos requeridos y el de la fecha lo dejo en blanco y al dar en aceptar en automático se rellena con la fecha actual (ej: 06/07/2017) pero al revisar la entrada de datos en la hoja de excel me cambia la fecha a "07/06/2017" osea como la usan en USA, y me hace lo mismo cuando yo introduzco la fecha de caducidad que por lo general es de 1 año posterior a la fecha de ingreso y al escribir en el "textbox" 06/07/2018 me la cambia en la hoja de excel a 07/06/2018. Ya me he metido en la configuración de celda y que la fecha que utilice sea dd/mm/aaaa pero aún así me la sigue cambiando.

Aquí pego el código:

Private Sub CommandButton1_Click()

Dim fila As Integer

For fila = 2 To 10000
                 
    If TextBox2.Text = "" Then
        TextBox2.Text = Date
    End If
        
    If Hoja2.Cells(fila, 2) = "" Then
        Hoja2.Cells(fila, 3) = TextBox1.Text
        Hoja2.Cells(fila, 4) = TextBox2.Text

        Hoja2.Cells(fila, 5) = TextBox3.Text
        Hoja2.Cells(fila, 6) = TextBox4.Text
        Hoja2.Cells(fila, 8) = TextBox5.Text
        Hoja2.Cells(fila, 2) = ComboBox1.Text
        
        MsgBox "Se ha realizado la Entrada"
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ComboBox1.Text = ""
         
    Exit Sub
    
    End If
    
Next

End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ComboBox1.Text = ""
End Sub
 

foto.docx

[Haplox]

No basta con subir una foto del problema, siempre es necesario el archivo de ejemplo para poder investigar, además este post debería ir en la sección de macros.

Jugando a adivinar, intenta cambiar la siguiente línea

Hoja2.Cells(fila, 4) = Format(TextBox2.Value,"dd:MM:yy")