...
Dim asyncFile As AsyncStreams
Dim outFile as OutputStream
outFile = File.OpenOutput(dir, fileName, True)
asyncFile.Initialize(Null,outFile,"AStreamWriter")
...
Sub Packet_Ready(data() As Byte)
packet_counter = packet_counter+1
asyncFile.Write(data)
End Sub