Dim s As String = "I Like Foxtable"FileSys.WriteAllText("c:\data\table.txt", s, False, Encoding.Default)