UTF - 8 Special CHaracters HELP!!

Hello everyone

I have this code that exports to the UTF - 8 format perfectly, But what happens is that when it is exported can not read the special characters.
Can anyone help?

This is the code i wrote:

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Sub Encode3()
Const sPath As String = "C:\temp\d.Txt"
Const SetChar As String = "UTF-8"
With CreateObject("ADODB.Stream")
.Type = 2
.Open
.LoadFromFile sPath ' Carrega o ficheiro
.Charset = SetChar ' passa o ficheiro para (UTF-8)
.SaveToFile sPath, 2 ' grava por cima
.WriteText "special characters: äöüß" ' caracteres especias
.Close
End With
End Sub