Leer y escribir en un fichero binario

    Imports System.IO
    Sub FichierBinaire(ByVal NombreFichero As String)
        Dim br As BinaryReader
        Dim bw As BinaryWriter
        Dim fs As FileStream
        Dim i As Integer
        Try
            If Not File.Exists(NombreFichero) Then
                ' No existe, lo creamos
                bw = New BinaryWriter(File.Create(NombreFichero))
                For i = 0 To 9
                    bw.Write(i)
                Next
                bw.Close()
            End If
            ' abrimos su contenido y lo mostramos en la cónsola
            fs = File.Open(NombreFichero, FileMode.Open)
            br = New BinaryReader(fs)
            Console.WriteLine("Debut du fichier")
            While fs.Position < fs.Length
                Console.Write(br.ReadInt32())
            End While
            Console.WriteLine("{0}Fin de fichero", ControlChars.CrLf)
        Finally
            ' cerramos Binaryreader
            If Not IsNothing(br) Then br.Close()
            ' cerramos Binarywriter
            If Not IsNothing(bw) Then bw.Close()
        End Try
    End Sub