Dim utf8WithoutBom = New System.Text.UTF8Encoding(False)Using sink = New io.StreamWriter("d:\aaa.txt", False, utf8WithoutBom)sink.WriteLine("内容")End Using