[RESOLVED] Problems loading specific block of data from a file

[Al42]

Function blockload(filename As String, Optional blocksize As Double, Optional block As Single)
Dim fre As Integer
Dim start As Double
Dim data As [color=red]Byte(100)[/color]
 
If blocksize = 0 Then blocksize = 50000
If block = 0 Then block = 1
 
'calculate start of block to get
start = (blocksize * (block - 1)) + 1
 
fre = FreeFile
Open filename For [color=red]Binary[/color] As #fre Len = blocksize
Get #fre, start, data
blockload = data
Close #fre
End Function