创建VBS程序段的方法如下：
使用记事本
打开记事本应用程序。
将你的VBS代码复制并粘贴到记事本中。
将文件保存为 `.vbs` 格式。如果系统没有自动识别并显示 `.vbs` 后缀，你需要手动更改文件类型或扩展名。
使用文本编辑器
打开一个支持语法高亮显示的文本编辑器，如 Notepad++、Sublime Text、VS Code 等。
在编辑器中编写你的VBS代码。
选择“文件”菜单，然后选择“另存为”或“保存”。
在保存对话框中，将文件类型设置为“所有文件”或“All types（*.*）”，并输入文件名，确保文件扩展名为 `.vbs`。
使用代码片段管理器（可选）：
如果你需要创建和管理多个代码段，可以考虑使用代码片段管理器，如 Snippet Manager 或 Visual Studio 的代码片段功能。
创建一个XML文件，定义代码段的结构和内容。
将XML文件导入到代码片段管理器中，并在需要时插入到脚本中。
示例代码段
```vbscript
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
' NAME: add2run01.vbs
' AUTHOR: shile
' DATE : 2008-12-13
' COMMENT: vbs实现添加程序到自启动项
On Error Resume Next
Dim ws
Set ws = CreateObject("Wscript.Shell")
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd", "cmd.exe"
```
在编写VBS代码时，可以使用 `REM` 语句进行注释，以便于阅读和理解代码。例如：
```vbscript
REM 这是一个简单的VBS脚本示例
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd", "cmd.exe"
```
通过以上步骤，你可以轻松地创建和保存VBS程序段。建议使用带有语法高亮显示的文本编辑器来编写和编辑VBS代码，以提高代码的可读性和可维护性。
