Prova questo:
codice:
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\Nome.txt", ForWriting, True)
f.WriteLine Text1.Text
f.WriteLine Text2.Text
f.WriteLine Text3.Text
f.WriteLine Text4.Text
f.WriteLine Text5.Text
f.WriteLine Text6.Text
f.WriteLine Text7.Text
f.WriteLine Text8.Text
f.Close
Set f = Nothing
Set fs = Nothing