Чтение и запись данных из txt в Excel - VBA

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

Всем привет! Подскажите, пожалуйста, как записать в Excel данные из txt-файла, если мне надо, чтобы (дальше покажу на примере): Примерно такие данные хранятся в текстовом файле- здесь есть 2 раздела "База" и "Отдельно":

База фрукт ДА овощ ягода Отдельно овощ;01;; ягода;54;87; фрукт;12;яблоко;яблсорт фрукт;13;апельсин;аплсорт

Мне надо, что Эксель увидел, что раз в разделе БАЗА у фрукта стоит ДА, то надо записать в ячейку Эксель значения из раздела ОТДЕЛЬНО, а именно: у фруктов первые символы в 4 столбике, предшествующие "СОРТ", т.е. в итоге вот что должно быть:

ябл

апл

Решение задачи: «Чтение и запись данных из txt в Excel»

textual
                            Листинг программы 
                        
    For i = 1 To UBound(s3)
        ThisWorkbook.Sheets(1).Cells(i+1, 1) = s3(i) 'начинаем со 2-ой строки первого столбца
    Next i