在VBS中，您可以使用FileSystemObject对象的CreateTextFile方法来创建一个文本文件。下面是一个使用CreateTextFile方法创建文本文件的示例：
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\path\to\file.txt", True)
在上面的示例中，我们首先创建了一个FileSystemObject对象（使用CreateObject函数），然后使用其CreateTextFile方法创建一个名为"file.txt"的文本文件，并指定了文件的完整路径（"C:\path\to"为文件的目录）。第二个参数（True）表示如果文件已存在，则覆盖现有文件。
您还可以选择性地指定第三个参数，该参数是一个布尔值，用于指定是否将文件以Unicode格式保存。如果将第三个参数设置为True，则文件将以Unicode格式保存。默认情况下，文本文件以ASCII格式保存。
创建文本文件后，您可以使用file.WriteLine方法将文本写入文件中。以下是一个完整的示例：
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\path\to\file.txt", True)
file.WriteLine "Hello, World!"
file.WriteLine "This is a sample text."
file.Close
在上面的示例中，我们使用file.WriteLine方法将两行文本写入文件中。最后，使用file.Close方法关闭文件。
希望这可以帮助到您！