[VB6] Da Array di Byte a File

[zampa28]

Dato un array di tipo Byte che contiene un file come "ricompongo" il file?

Ho questo codice:

   
    Dim b() As Byte
    b() = 'qui popolo l'array con il file
    For T = 0 To UBound(b)
        strRemoteVer = strRemoteVer + Chr(b(T))
    Next
    Open nomefile For Output As #1
        Print #1, strRemoteVer
    Close 1

effettivamente ricrea il file, ma ci mette un'infinità di tempo.
Per un file da 300Kb ci mette anche 3 minuti.

C'è un modo più rapido?