Открытие 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 - VB»

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)

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ