Split() - string too large

[wowa]

Добрый день,

Есть небольшой черновой кусок кода:

Dim a As Variant
Dim b As Variant 
 
ForAll n In ListPersons
 
	a = StrLeft(n , sepEmpty )
 
	b = Split(a , sep)
End ForAll

Код пробегает по циклу замечательно, но на 132 итерации валится с ошибкой 228 - String too large.

Строка кода №8
Длина строки а = 263

В чем может быть проблема?

 

[NickProstoNick]

Проблема вероятней всего в ListPersons. Тут надо смотреть конкретные данные.
Возможно в строке непечатаемый символ/символы или более вероятно - в подстроке а подряд много символов из переменной sep