VB.Net Imports System.IO Public Sub WriteByte(ByVal Content As String) Dim fs As FileStream Dim bw As BinaryWriter fs = New FileStream("c:/test.txt", FileMode.Create, FileAccess.Write) bw = New BinaryWriter(fs, System.Text.Encoding.Unicode) bw.Write(Content) bw.Close() fs.Close() fs.Dispose() End Sub Public Sub ReadByte() Dim fs As FileStream Dim br As BinaryReader Dim content As String fs = New FileStream("c:/test.txt", FileMode.Open, FileAccess.Read) br = New BinaryReader(fs, System.Text.Encoding.Unicode) content = br.ReadString Console.WriteLine(content) br.Close() fs.Close() fs.Dispose() End Sub