Открытие txt файла больше 1,5 Mb - VB

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

Доброго всем Была прога. Только сейчас заметил что открывает не весь файл. Подскажите в чем дело или другой способ. Вот таким открывает, но не все

                    Листинг программы
                
 
                        
                          
                    
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "D:\Armrups\Loto\SLoto.txt"
Open FName For Input As #FN
txtText = Input(LOF(FN), #FN)
Close #FN

Таким большие вообще не открывает, виснет

                    Листинг программы
                
 
                        
                          
                    
'Open App.Path & "\Loto\VLoto.txt" For Input As #1
'Do Until EOF(1)
'Line Input #1, txt
'alltxt = alltxt + txt + vbCrLf
'Loop
'Close #1
'txtText.Text = alltxt

Решение задачи: «Открытие txt файла больше 1,5 Mb»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim bs As String
Dim f As Integer
f = FreeFile
Open App.Path & "/test.txt" For Input As f
Input #f, bs
Close f
MsgBox Len(bs)