ник: kot_k_k
толкаю:
функции Instr() и Mid (), Select Case, If - считываем по строчно
- находм первую А - формируем запись чела.
ситываем следующую если не А то формируем запись если Б - чел+период,
если В то чел + период + сумма.
и так пока не найдем новую А.
п.с. если есть 100% уверенонсть что В не будет впереди Б то можно не проверять на "Б" или "В" а поочередно создавать нужную запись, но лучше проверять