생성시

Dim f As New System.IO.StreamWriter("xxx.txt", True, System.Text.Encoding.GetEncoding("euc-kr"))

읽을때

 Dim Lines() As String = IO.File.ReadAllLines("xxx.txt",, System.Text.Encoding.Default)