A ver si alguien me puede ayudar, estoy con una macro que mete la fecha actual en un arrai, el problema es que cuando ejecuto y meto en una celda la posicion del arrray excel me pone una fecha con el mes invertido. Ejemplo hoy es dia 12/09/2019 pues en vez de ponerme este fecha me pone 09/12/2019.
He probado esto, mifecha = Format(Now, "dd/MM/yyyy") meter la fecha en una variable  en el formato que busco y luego meterla en el array, pero cuando ejecuto la macro me vuelbe a girar el dia y el mes... alguna idea?

    Option Explicit
    Dim nombreArray As String
    Dim i As Integer
    Dim x As Integer
    Dim numero As Integer
    Dim numfel As Integer
    Dim nomcliente As String
    Dim clienteDepurado As String
    
    
    Sub Clientes2()
    
    '#####################
    Dim MiFecha As String
    Dim mifecha1 As String
    Dim mifecha2 As String
    MiFecha = Date
    'mifecha = Format(Now, "dd/MM/yyyy")
    mifecha1 = DateAdd("d", 1, Date)
    mifecha2 = DateAdd("d", 2, Date)
    
    nomcliente = Application.InputBox("Dime un Cliente - Pon solo las 3 primeras letras")
    
    clienteDepurado = Trim(LCase(nomcliente))
    
    Select Case clienteDepurado
    
        Case Is = "nis"
    
            Dim niss(0 To 17) As String
    
            niss(0) = ""
            niss(1) = MiFecha
            niss(2) = ""
     niss(3) = ""
            niss(4) = "24658"
            niss(5) = "NISSAN MOTOR IBERICA"
            niss(6) = ""
            niss(7) = ""
            niss(8) = ""
            niss(9) = "15n"
            niss(10) = mifecha1
            niss(11) = ""
            niss(12) = ""
            niss(13) = ""
            niss(14) = ""
            niss(15) = ""
            niss(16) = "k"
            niss(17) = ""
    
            Call cogeDatos1(niss)
            End
            
    End Select
    End Sub
    Sub cogeDatos1(nombreArray)
    
      For i = 0 To 17 Step 1
        
        ActiveCell.Offset(0, i).Value = nombreArray(i)
            
            
        Next i
        
        i = 0
        
    End Sub

[![introducir la descripción de la imagen aquí][1]][1]


  [1]: https://i.sstatic.net/VODtY.png