s=inputbox("")msgbox sSet fso = CreateObject("Scripting.FileSystemObject")Set textfile = fso.CreateTextFile("c:\abc.txt", True, False)textfile.WriteLine (s)textfile.CloseSet fso = Nothing