Есть более "быстрый" вариант реализации, чем Line Input #? - VB

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

Всем привет! Простая задача. Открыть текстовик, считать данные...

    Dim strReadData As String 
 
    Open App.Path & "\Traffic_LOG.txt" For Input As #1
        Line Input #1, strReadData
        Debug.Print strReadData
    Close #1

Однако! для большого файла, считка данных с Line Input происходит очень долго. Как можно реализовать по другому?

Решение задачи: «Есть более "быстрый" вариант реализации, чем Line Input #?»

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

                                Dim ff As Long 
    ff = FreeFile                               'получаем свободный номер файла
    Open App.Path & "\" &  fn For Input As #ff            'открываем файл для чтения
         s=Input(LOF(ff), #ff)             'считывам текстовый файл 
    Close #ff
                        