Excel - Guardar txt en UTF8 por defecto

Sub Actualizar()

'

' Actualizar Macro

'

' Acceso directo: CTRL+a

'

Dim fsT As Object

    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

    ChDir "C:\File\.txt"

Set fsT = CreateObject("ADODB.Stream")

fsT.Type = 2 'Specify stream type - we want To save text/string data.

fsT.Charset = "utf-8" 'Specify charset For the source text data.

fsT.Open 'Open the stream And write binary data To the object

fsT.WriteText "special characters: äöüß"

fsT.SaveToFile sFileName, 2 'Save binary data To disk

End Sub