Ввиду исключительной тормознутости VB при работе с большими строками, предлагаю неплохое решение - класс для работы со строками. Вот ссылка на него:
http://bbs.vbstreets.ru/download.php?id=1073
Пример использования:
- Код: Выделить всё
'объявление переменных
Dim objAppend As cAppendString
Dim strVal As String
Dim i As Long
'создание объекта
Set objAppend = New cAppendString
'присоединить строку
For i = 1 To 100000
objAppend.Append "AAA"
DoEvents
Next i
'получить значение строковой переменной
strVal = objAppend.Value
'напечатать значение в окне Immediate
Debug.Print strVal
'очистим память, мы хорошие!
objAppend.Clear
'освобождение объекта
Set objAppend = Nothing