Imports System.IO
Imports System.Text
 
        Dim fstream As New FileStream("C:\Unicode.txt", FileMode.Open)
        Dim Bytes(fstream.Length) As Byte
        fstream.Read(Bytes, 0, Bytes.Length)
        Encoding.Convert(Encoding.Unicode, Encoding.ASCII, Bytes)
        Dim fstream2 As New FileStream("C:\ANSI.txt", FileMode.Create)
        fstream2.Write(Bytes, 0, Bytes.Length)
        fstream2.Close()