Create StreamWriter from FileStream and default encoding
Imports System Imports System.IO Imports System.Text Public Class Test Public Shared Sub Main() Dim FileName As String= "test.txt" Dim TextToAdd As String = "data" Dim Fs As FileStream = New FileStream(FileName, FileMode.CreateNew, FileAccess.Write, FileShare.None) Dim SwFromFileStreamDefaultEnc As StreamWriter = New StreamWriter(Fs, System.Text.Encoding.Default) SwFromFileStreamDefaultEnc.Write(TextToAdd) SwFromFileStreamDefaultEnc.Flush() SwFromFileStreamDefaultEnc.Close() End Sub End Class