'VBA function to write string to text file:

Function SaveStringAsTextFile$(s$, fName$)
    Const adSaveCreateOverWrite = 2
    With CreateObject("ADODB.Stream")
        .Charset = "utf-8"
        .Open
        .WriteText s
        .SaveToFile fName, adSaveCreateOverWrite
    End With
End Function