Esistono metodi migliori di quello che hai usato.
Effettivamente eseguire un ciclo for su un'array di byte per creare la stringa da stampare sul file può farti perdere parecchio tempo... tutto dipende dalle dimensioni dell'array.
Ti conviene aprire il file in modalità binaria e fare il PUT di tutto l'array.
codice:
'popoli l'array
  Open MioFile For Binary As #1
    Put #1, , b()
  Close #1
in questo modo sovrascrivi i dati sul file. Se vuoi fare un'append, ossia accodare l'array in fondo al file, devi specificare il n° del record del file.
codice:
  lLen = FileLen(MioFile)
  Open MioFile For Binary As #1
    Put #1, lLen + 1, b()        ' append
  Close #1