I haven't used VB6 for several years but it should look something like this
Code:
Dim iFile As Integer
iFile = FreeFile 
Open sSomeStringContainingFilename For Binary Access Write As #iFile
  Write #iFile,  bTheByteArrayReturnedFromTheFunction
Close #iFile