Input 如何将文本从VBS输入框导出到文本文档？

如何将文本从VBS输入框导出到文本文档

我有一个输入框，我希望将用户输入的文本导出到一个单独的文本文件。

如有疑问，请阅读。

Dim objFSO 'File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTS 'Text Stream Object
Const ForWriting = 2
Set objTS = objFSO.OpenTextFile("c:\TextFile.txt", ForWriting, True)
objTS.Write(InputBox("Here it is"))
objTS.Close()