Hola, independientemente de que los datos sean binarios o no, al fin y al cabo TODO son unos y ceros, puedes hacerlo de este modo
Código vb:
Ver original' Para Borrar Fichero y Grabar los Datos
Numero = FreeFile
Open Fichero For Output As #Numero
Print #Numero, Datos;
Close #Numero
' Para No Borrar Fichero y Añadir los Datos
Numero = FreeFile
Open Fichero For Append As #Numero
Print #Numero, Datos;
Close #Numero
, el
; Punto y Coma despues de Datos para que no te añada el
CrLf
Saludos