Save text file UTF-8 encoded with VBA

Dim txt AS New ADODB.Command

With txt
 .Type = adTypeText
 .Charset = "utf-8"
 .Open
 
 .WriteText "special characters: äöüß"
 .WriteText "", adWriteLine    ' add an empty line, like WriteLine()
 .WriteText "another special characters: äöüß"
 
 .SaveToFile FileName, adSaveCreateOverWrite
 .Close
End With

Set txt = nothing

My version, from stackoverflow.com