problem using binary data with a stream

[Evan Scamman]

I have a database of my MP4 music files, and I'm trying to use VBA to modify the Header info.

I can load the file into a stream, modify the part of the header that I want to, but I can't write back to the stream.

I believe it has something to do with converting to Unicode and back.

If I don't convert to unicode and back, I can write, but as soon as I conver, I can't write. It says "Arguments are of the wrong type, are out of acceptable range, or are in conflict with oneanother.

Here's the code:

Dim st As Stream
Set MyStream = New Stream
MyStream.Open
MyStream.Type = adTypeBinary

MyStream.LoadFromFile "c:\audia.m4a"
Dim stri As Variant, aoeu as String
stri = MySteram.Read()
aoeu = StrConv(stri, vbUnicode)

' Replace the text in the header that I want, etc...

stri = strconv(aoeu, vbFromUnicode)
MyStream.write (stri)
MyStream.Close

--------------

I don't really know much about unicode, so hopefully it's something simple.


Thanks for any help!