Integer de ficheiros binarios

[so_simple]

Estou a fazer um trabalho em excel com VB e andei a procura de como ler e escrever ficheiros e tenho dúvidas de como leio inteiros escritos em ficheiros binários

[FreiNando]

Em Excell Pode usar a seguinte função:

Function LerINT(Ficheiro, Pos) As Integer
    Dim n As Integer
    If Dir(Ficheiro) = "" Then Exit Function
    If Pos > FileLen(Ficheiro) Then Exit Function
    n = FreeFile
    Open FicheiroFor Binary As n
    Get n, Pos, LerINT
    Close n
End Function

E colocar como formula nalguma celula.