Очень долгая загрузка текстового файла - VB

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

Всем привет! Сразу хочу оговориться, что VBA я только начал изучать. Возникла следующая проблемка - если загрузить текстовый файл (в районе нескольких сотен килобайт) в переменную типа string, то он загружается непозволительно долго - около 5-7 минут. Вот сам код "проблемного" участка:

CommonDialog1.ShowOpen
On Error Resume Next
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
    Line Input #1, txt
    alltxt = alltxt + txt + vbCrLf
Loop
Close #1

И что-то мне подсказывает, что я что-то упустил. В чем может быть моя проблема?

Решение задачи: «Очень долгая загрузка текстового файла»

textual
                            Листинг программы 
                        

                               Dim File As String, CF As String 
   'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log" 
   'ycтановим имя файла и пyть 
   Open File For Binary As #1 
   'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1 
   'закpыть файл
                        