Skrive til en fil i Script

Jeg forsøger at skrive til en fil, men det bliver ren volapyk når jeg åbner med f.eks notepad. Hvad gør jeg galt?



Set rtitem = doc.GetFirstItem( "Body" )
  If doc.HasEmbedded Then
  j=1
Forall o In rtitem.EmbeddedObjects
'Set o = rtitem.EmbeddedObjects
If ( rtitem.Type = RICHTEXT ) Then
If ( o.Type = EMBED_ATTACHMENT ) _
Then
If Len(j) = 1 Then
counter = 0 + j 
Else
counter = j
End If
Call o.ExtractFile _
    ( filename + Cstr(counter) + ".txt" )
                       
'***** Write data to file
fileNum% = Freefile()
fileNameA$ = filename + Cstr(counter) + ".txt"
Open fileNameA$ For Output As fileNum%
Print #fileNum%, "test"
Close fileNum%