' ------------------------------ Открытие файла
            Dim fso, f
            Set fso = CreateObject("Scripting.FileSystemObject")
                  IF (fso.FileExists(FILENAME) = false) THEN
               Response = MsgBox("Указанный файл не существует!", vbOKOnly, "Загрузка биллинга")
            ELSE
               Set f = fso.GetFile(FILENAME) 'C:\Temp\Billing\01.txt

               ' ------------------------------ Получить содержимое файла
               Dim ts
               Dim MyArray
               Set ts = fso.OpenTextFile(FILENAME,  1 )
               file_context = ts.ReadAll
               ts.Close     
               MsgBox file_context

               Delimiter=Chr( 13 )
               MyArray = Split(file_context, Delimiter, - 1 ,  1 )
[color=red]               IF (MyArray.Length >  0 ) THEN
                   MsgBox MyArray.Length
               End IF[/color]
            End IF

Ubound(massiv) - верхняя граница массива
Lbound(massiv) - нижняя