Vba Excel массивы, Split

Vba Excel массивы, Split
Элемент программы должен загрузить в определённую часть страницы данные из текстового файла с определённой структурой

файл примерно такой:

[Проблемы]
Всего проблем=8
Проблема1=46;16.10.2013;Акции;Первая;сбросить;;Антон;Антон 16.10.2013 15:46:06
Проблема2=47;16.10.2013;Акции;Вторая;сбросить;;Антон;Антон 16.10.2013 15:46:07
Проблема3=48;16.10.2013;Акции;Первая;сбросить;;Антон;Антон 16.10.2013 15:46:11
Проблема4=49;16.10.2013;Акции;Вторая;сбросить;;Антон;Антон 16.10.2013 15:46:11
Проблема5=50;16.10.2013;Акции;Первая;сбросить;;Антон;Антон 16.10.2013 15:46:11
Проблема6=51;16.10.2013;Акции;Вторая;сбросить;;Антон;Антон 16.10.2013 15:46:11
Проблема7=52;16.10.2013;Акции;Первая;сбросить;;Антон;Антон 16.10.2013 15:46:11
Проблема8=53;16.10.2013;Акции;Вторая;сбросить;;Антон;Антон 16.10.2013 15:46:11

С некоторыми файлами работает. Но заметил, что если 4 элемент имеет в себе много символов, то выдаётся ошибка

код следующий:

Dim mas() As String
Dim j

j = 1
For l = 2 To Probs + 1
mas = Split(CStr(RIF("Проблема" & CStr(j), "", "Проблемы", Y)), ";")
Sheets("Ïðîáëåìû").Cells(l, 1).Value = mas(0)
Sheets("Ïðîáëåìû").Cells(l, 2).Value = mas(1)
Sheets("Ïðîáëåìû").Cells(l, 3).Value = mas(2)
Sheets("Ïðîáëåìû").Cells(l, 4).Value = mas(3)
Sheets("Ïðîáëåìû").Cells(l, 5).Value = mas(4)
Sheets("Ïðîáëåìû").Cells(l, 6).Value = mas(5)
Sheets("Ïðîáëåìû").Cells(l, 7).Value = mas(6)
Sheets("Ïðîáëåìû").Cells(l, 8).Value = mas(7)
j = j + 1
Next l

посоветуйте как быть пожалуйста

  • очень тяжело помогать когда:
    1)не указан VBA какого MSO
    2)непонятная функция RIF