Ciao a tutti!

Ho creato un ActiveX in VB6 che in output mette a disposizione un array di byte. In VB riesco a scrivere questo array su un file in questo modo:
Dim appo() As Byte

Set mthTest = New ClassSADP 'instanzio l'activeX
Dim var As Variant

mthTest.Start 'visualizzo l'activeX

ReDim appo(UBound(mthTest.Dito_10)) 'ritorna un array di byte contente un'immagine
appo = mthTest.Dito_10

Open "c:\Prova.wsq" For Binary As #1
Put #1, , appo

Questo funziona, il problema ora è che devo fare la stessa cosa ma in VBSCRIPT! Ho fatto una bozza:
<script language="vbscript">
Dim appo
Dim OggFile, origine, OggTextStream

ClassSA.Start
Array(appo)
ReDim appo(UBound(ClassSA.Dito_1))

origine="c:\textstream.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (origine)
Set OggFile = fso.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine appo
OggTextStream.close
</script>
Lo script mi crea un file di 0 byte....qualcuno potrebbe gentilmente aiutarmi? Grazie.