Считывание иформации с .txt в Excel - VB

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

Профессионалы и фанаты своего дела.. у меня к вам просьба. Есть калькулятор (написанный кем-то в доисторические времена) суть этого калькулятора: с датчиков снимаются показания в формате dd/mm/yyyy hh/mm/ss - xx oc (градус цельсия), заполняется таблица, с какого по какое время датчик измерял нужные нам температуры, затем все это загружается в Exsel, и считает необходимые мне показатели... Но после замены датчиков, информация теперь считывается в новом формате dd/mm/yyyy hh/mm - xx oc (градус цельсия). Теперь при проведении расчетов он выдает ошибку... Run-time error '13' Скрываются подозрения (мои личные, полного дилетанта в этом деле), что собака зарыта в следующих строках макроса

 Do While (Not EOF(1))
                 k = k + 1
                    Line Input #1, st   'k-Г*Гї Г±ГІГ°Г®Г·ГЄГ* ГІГҐГЄГ±ГІГ®ГўГ®ГЈГ® ГґГ*Г©Г«Г*
                    s = Mid(st, 1, 2)   'ГҐГҐ ГЇГҐГ°ГўГ»ГҐ 2 Г±ГЁГ¬ГўГ®Г«Г*
                    If s = " 0" Or s = " 1" Or s = " 2" Or s = " 3" Then
                        cTime = Mid(st, 2, 15) ' Здесь
                        cTime = CDate(cTime) ' И здесь
                        If ccTime >= ssTime And ccTime <= eeTime Then
                            m = m + 1
                            ots(i, m) = Mid(st, 21, 6)
                        End If
                    End If
                Loop
                Close #1
            End If
        Next
    Next

К сожалению, думала, что я на что-то способна, но как то не получается. Буду очень благодарна за помощь, если у кого будет возможность

Решение задачи: «Считывание иформации с .txt в Excel»

textual
                            Листинг программы 
                        
                             cTime = Mid(st, 2, 17)