Переменная не полностью записывается в файл - VB

Формулировка задачи:

Может кто сталкивался со следующей проблемой. Результат работы записывается в файл txt

   On Error Resume Next: Err.Clear
   fn = FreeFile
   Open namebaz1 For Append As #fn
   Print #fn, all;
   Close #fn

Переменная all - тип string формируется путём объединения & трёх переменных и каждая из которых по 20 мегабайт. В процессе выполнения программы эта переменная меняется в сторону увеличения и периодически происходит дозапись в файл. Так вот, со временем запись в файл начинает глючить, не полностью переменная сформировывается и следовательно не записывается. Смотрю на отладке, все вроде нормально, но записываемый файл становится меньше, чего не должно быть. Самое главное, что сначала всё идёт нормально, а потом начинаются проблемы. Такое ощущение что что-то с памятью.

Решение задачи: «Переменная не полностью записывается в файл»

textual
                            Листинг программы 
                        
                            all = "[" & poisk1$ & "]\[" & Join(Mslov, "/") & "/]\[" & Join(Kolich, ";") & "]\[|" & Mjyj(1) & "|" & Max & "|" & Mjyj(3) & "|]"