Converting a UTF16 .csv file to a UTF8 .csv file

How do I convert a UTF16 .csv file to a UTF8 .csv file or ASCII file using vbscript?  I have a UTF16 .csv that has 1 line of data from which I cannot read file that I cannot read the line - it returns 3 characters of jibberish.

Here is my code that I am using currently


Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strFileName = "C:\TestSubject-en-us.csv"

      Set objTextStream = objFSO.OpenTextFile(strFileName, 1)
      msgbox("" & objTextStream.ReadLine & "")
      'Response.Write "" & objTextStream.ReadAll & ""
      objTextStream.Close      
      Set objTextStream = Nothing

Set objFSO = NothingStart Free Trial