想将文件一次全取到FileBuffer 数组里，运行到此行时无法继续。数组要定义为多长请

想将文件一次全取到FileBuffer 数组里，运行到此行时无法继续。数组要定义为多长请高手指点。
       filepath = My.Application.Info.DirectoryPath & "\abc.temp"'文件比较大
        FileNumberS = 78 
        FileOpen(FileNumberS, filepath, OpenMode.Binary, OpenAccess.Read)
        lFileLen = FileLen(filepath)
        If lFileLen > 0 Then
            ReDim FileBuffer(lFileLen) 'Byte
            FileGet(FileNumberS, FileBuffer) '将文件一次全取到   FileBuffer   数组里，运行到此行时无法继续。提示未处理ArgumentException:偏移量和长度超出了数组的界限，或者计数大于从索引到源集合尾处的元素数量
        End If
        FileClose(FileNumberS)
想将文件一次全取到FileBuffer 数组里，运行到此行时无法继续。数组要定义为多长请高手指点。
[解决办法]
因本人以前是玩转VB6.0的，所以在.net碰到此问题不知如何解决了。请高手指导，急等中~~