VBA Excel - Как преобразовать строки даты из дд / мм / гггг в гггг-мм-дд?

Question

Я новичок в этом ... У меня проблемы с преобразованием строк даты в Excel.Кто-нибудь может мне помочь?

Вместо преобразования я получаю что-то вроде этого: - / 2-13 / 06/2017

Заранее спасибо!

Sub muda_datas()
    For linha = 3 To 479
    MsgBox Cells(linha, 24).Value
        dia = Cells(linha, 24).Value
        mes = Mid(Cells(linha, 24).Value, 6, 2)
        Cells(linha, 24).Value = ano & "-" & mes & "-" & dia
    Next linha
End Sub