Dim fileNum As Integer Dim bytes() As Byte fileNum = FreeFile Open "C:\test.bin" For Binary As fileNum ReDim bytes(LOF(fileNum) - 1) Get fileNum,bytes Close fileNum