[Iska]

megaloman,

Код:

nStrok = UBound(Mas)                            ' Макс значение индекса массива (Число строк -1 в исходном тексте- нумерация элементов массива с 0)

потерялся в новом коде. Потому я стараюсь всегда пользовать «Option Explicit».

Наверное, Вы хотели совсем «nStrok» исключить, наподобие:

Код:

If UBound(Mas) + 1 >= iStrok Then

и присвоение — убрали, а строку с условием поправить подзабыли?!