VB6 / VBScript изменить кодировку файла на ansi

Я ищу способ преобразовать текстовый файл с кодировкой UTF8 в кодировку ANSI.

Как я могу обойтись и добиться этого в Visual Basic (VB6) или vbscript?