ADODB.Stream size

From: Patrik (Patrik_at_discussions.microsoft.com)
Date: 11/24/04 

Date: Wed, 24 Nov 2004 04:59:02 -0800

I have two code snippets performing the same task - saving a byte array to a
file.
The file saved wit the Open and Put is about 3 times bigger than the file
saved with adodb.stream.

Why?
Can i get Open and Put produce a file as small as with the stream?
Is there any limitation to adodb.stream?

Set valueNode = nodeLeverantor.selectSingleNode("b:Base64")
valueNode.dataType = "bin.base64"
btArr = valueNode.nodeTypedValue
Open "c:\pic1.tif" For Binary As #1
Put #1, 1, btArr
Close #1
        
With CreateObject("adodb.stream")
  .Open
  .Type = 1
  .Write btArr
  .SaveToFile "c:\pic2.tif"
End With