Экспорт файла Excel в текст с использованием VBA, кодировка UTF-8

Question

Кто-нибудь знает, как сохранить в формате UTF-8?

Проблема в том, что у меня скандинавские буквы, а ANSI их не поддерживает.

Sub savetoText1()
    Dim FileToSave As String, lineText As String
    Dim myrng As Range, i, j

    FileToSave = ThisWorkbook.Path & "\test" & Format(Now, "yyyymmdd-hhmmss") & ".xml"

    Open FileToSave For Output As #1

    Set myrng = Range("xml!$A:A")


For i = 1 To myrng.Rows.Count
    For j = 1 To myrng.Columns.Count

    If lineText = IIf(j = 1, "", lineText & " ") & myrng.Cells(i, j) Then
    Close #1
    Exit Sub
    End If

        lineText = IIf(j = 1, "", lineText & " ") & myrng.Cells(i, j)
    Next j
    Print #1, lineText
Next i
Close #1
End Sub