Dim path As String = FileName
            Dim fs As FileStream
            ' Open the stream and read it back.
            fs = File.Open(path, FileMode.Open, FileAccess.Read)
            Dim aaa
            aaa = FileLen(FileName)
            Dim b(aaa) As Byte
            Dim temp As UTF8Encoding = New UTF8Encoding(True)
 
            Do While fs.Read(b, 0, b.Length) > 0
                Dim sw As IO.StreamWriter
                sw = New IO.StreamWriter("d:\Thomas\tmp.asf")
                sw.WriteLine(temp.GetString(b))
                sw.Close()
 
            Loop
            fs.Close()