Формат ячейки - VBA

Формулировка задачи:

Доброго времени суток, у меня есть файл к котором в первой ячейке записана дата, с другими символами. я вытаскиваю цифры и потом хочу склеить со временем, но он не понимает что дата это дата. как можно решить данную проблему, подскажите пожалуйста 111.xlsm.7z

Решение задачи: «Формат ячейки»

textual
                            Листинг программы 
                        

                            Sub dat()
Cells(1, 6).Value = CDate(Mid(Cells(1, 1), 7, 10))
Cells(21, 6).NumberFormat = "dd.mm.yyyy hh:mm:ss"
Cells(21, 6).Value = Cells(1, 6) + Cells(21, 3)
End Sub
                        