Всем привет!

Подскажите плиз, как лучше решить задачу.
необходимо обработать текстовый файл и отставить строки, которые начинаются с " 400 " и " 600 ". Все остальные строки нужно удалить.
Код ниже работает на ура с небольшим количеством строк 20-30тысяч. Задача состоит в обработке 300-400 тысяч строк. Выдает ошибку Run-time error '6': overflow

Dim myCol As New Collection
Dim Buf As String
Dim i As Integer

Open "c:\test\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Buf
myCol.Add Buf
Loop
Close #1

Open "c:\test\2.txt" For Output As #1

For i = 1 To myCol.Count
If Left(myCol(i), 6) = " 400 " Or Left(myCol(i), 6) = " 600 " Then Print #1, myCol(i) Else
Next i

Close #1

Большое спасибо! суппер!