Vbscript 代码线中间的预期行尾错误

我有这个简单的vbscript，但windows在我尝试运行它时给了我一个错误。我以前从未使用过vbscript，我尝试过谷歌，但我能找到原因。我在第1行，字符16处得到预期的行尾错误。有人看见什么吗？ 另外，我正在记事本中编写代码，并通过双击文件来运行它。我还有别的办法吗

Dim WithEvents Button As CommandButton
Private Sub Application_StartUp(Cancel As Boolean)
Set Button = CommandButtons.Add("Click me")
End SubPrivate Sub Button_Click()
Msgbox "Clicked", vbInformation
End Sub

---

因为有人提到记事本正用于此目的，并且查看代码，这显然是在VisualStudio中使用VBScript向基于表单的应用程序添加按钮的代码

通过记事本编写的VBScript并不擅长用于创建GUI对话框等。使用记事本的示例代码如下：

toRepeat = InputBox("What should I repeat?", "Echo", "Hello World")
MsgBox toRepeat

在本例中，输入框中键入的内容将重复

如果Visual Studio不可用，并且对构建基于表单的应用程序感兴趣，则可以通过Word或Excel在VBA中创建用户表单。以下网站提供了在Excel中创建用户表单应用程序的良好教程：

如果有人感兴趣，我最近在我的博客上解释了VB的不同风格：

谢谢

---

肖恩W.

那是无效的VBScript（

因为XXX

无效）是VBA/6/.Net吗？可能是VBA。VBA文件是否也有.vbs扩展名？很可能是Outlook VBA。它不会有

vbs

扩展名。它将有一个类（

cls

）或模块（

bas

）扩展名？你写的是你的剧本。（你写了“我正在用记事本写这个”，是吗？）如果你说不出是什么，我们该怎么做？