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 && adTypeText
>loStream.CharSet = "US-ASCII"
>loStream.WriteText(lcMsg)
>loStream.Position = 0
>