Use an ADODB stream object.
Set BS = CreateObject("ADODB.Stream")
'2 = text so use writetext rather than 1 = binary and use write
BS.type = 2
'Get the list of chartypes by typing in a command prompt ***reg query HKEY_CLASSES_ROOT\MIME\Database\Charset***
BS.Charset = "UTF-8"
BS.open
BS.WriteText "Hi kiddies"
'A=Array(CByte("M"),CByte("Z"))
'BS.Write A
BS.SaveToFile "c:\myfile.txt", 2