我用 Get # 來讀取檔案的資料到一個Byte陣列，可是很慢耶(編號：1154)

我是用下面這種方式來讀檔，可是滿慢的
請問有沒有比較快的方法呢？謝謝
Open sPath & sFileName For Binary As #1
　　lFileLen = LOF(1)
　　ReDim FileBuffer(lFileLen - 1)
　　For i = 0 To lFileLen - 1
　　　　Get #1, , FileBuffer(i)
　　Next i
　　Close #1