Yep, I did a quick test with your code and looks like it works too but I'll stick to my version. If it's not broken don't fix it. :)
>Thanks, Sergey. I had also stumbled into the following that worked
>
>loStream = CREATEOBJECT("ADODB.Stream")
>loStream.Open()
>loStream.Type = 2
>loStream.CharSet = "US-ASCII"
>loStream.WriteText(lcMsg)
>loStream.Position = 0
>
--sb--