Ciao, sBuffer non l'hai dichiarata come matrice! devi fare una cosa del genere:
codice:
Dim sBuffer() As Byte
.....
ReDim sBuffer(FileLen("C:\Windows\~00001.tmp") - 1)