excel vba write string to text file
'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