A ver qué tal con algo asín:
Private Function LeerF(Byval File as string) As Boolean
Dim intF as Integer
Dim lngL as long
Dim byt1 as Byte
On Error Goto Error_Leer
intF = FreeFile
Open File For Binary as #intF
For lngL = 1 to LOF(intF)
Get #intF, , byt1
msgbox chr(byt1)
Next lngL
LeerF = True
Salir_Leer:
On Error Resume Next
Close #intF
Exit Function
Error_Leer:
Msgbox Err.Description
Resume Salir_Leer:
End Function
Con esta función lees el fichero byte a byte. Si quisieras leer varios bytes de una sola vez, en vez de utilizar un variable tipo byte, utiliza una matriz de tipo byte también, de n dimensiones, donde n es el nº de bytes que quieres leer de una vez.
Si quieres leer un desplazamiento en concreto dentro del fichero, no omitas el segundo parámetro del 'GET'.
Para escribir en el fichero, puedes utilizar PUT.
Espero que te vaya bien.
