Stream

Not commonly used in Excel or Word applications

Dim oStream As Object 
Set oStream = CreateObject("ADODB.Stream") 
oStream.Type = 2 
oStream.WriteText = "here is some text" 
oStream.SaveToFile("C:\Temp\temp.txt",2) 
oStream.Close 
Set oStream = Nothing