loStream = CREATEOBJECT("ADODB.Stream") loStream.Open() loStream.Type = 2 && adTypeText loStream.CharSet = "US-ASCII" loStream.WriteText(lcMsg) loStream.Position = 0