Set fso = CreateObject("Scripting.FileSystemObject") Set tso = fso.CreateTextFile("text2.txt", true) tso.Write("foo") tso.WriteLine("bar") tso.WriteBlankLines(1) tso.WriteLine("hoge") tso.Write("hello" + vbCrLf + "world" + vbCrLf) tso.Close