Aprire il file in modalità binaria e leggere tutto il contenuto

Ecco: ho approntato in pochi secondi il codice che mi permette di aprire il file in modalità binaria:

Module Module1
   Sub main()
        Dim variabile As Byte
        FileOpen(1, "C:\Users\Io\Documents\file.txt", OpenMode.Binary)
        FileGet(1, variabile, 1)
        MsgBox(variabile)
    End Sub
End Module

Il file contiene le lettere dell'alfabeto maiuscole:

ABCDEFGHIJKLMNOPQRSTUVWXYZ

Ottengo come risultato il seguente:

Che se ricordo bene è il codice ASCII della A maiuscola (41H in esadecimale).
Bene.

---

Ora voglio recuperare tutti i bytes fino alla fine del file.

Module Module1
   Sub main()
        Dim variabile As Byte
        FileOpen(1, "C:\Users\Io\Documents\file.txt", OpenMode.Binary)
        Dim n As Integer = 1
        Do Until EOF(1)
            FileGet(1, variabile, n)
            MsgBox(variabile)
            n = n + 1
        Loop
    End Sub
End Module

Ecco fatto!