VBScripts, использующий файловый поток, получающий ramdom текст

Question

У меня есть небольшое приложение make-файл HTML, в котором сохраняется японский текст.

Я хочу сохранить японский текст в файле, но при запуске файла я получаю другой набор текста.

Это код моего ТЕСТ-кода:

<%@ LANGUAGE = "VBScript" %>

<%

        Dim string 
        string = "加賀屋 "  
        Set objStream = server.CreateObject("ADODB.Stream")
        objStream.Open
        objStream.CharSet = "UTF-8"
        Response.Write string
        objStream.WriteText(string) 
        objStream.SaveToFile Server.MapPath("/13/ama2019/TEST.html") , 2
        objStream.Close
        Set objStream = Nothing

%>

Вывод выглядит так:

蜉雉螻・

Это проблема при установке кодировки в UTF-8?