VB如何运行VBS程序?

我的方法运行vbs文件是没有问题的,只是不懂bat所以没法回答你的问题,不过你为什么不直接shell bat文件 ?
shell "cmd /c C:\run.bat"

你的bat文件中是不应该加上文件保存的路径?
dir d: > c:\1.txt

vbs依靠windows\system32目录下的wscript.exe才能运行:
shell "wscript.exe C:\run.vbs"

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute 0, "open", "C:\run.vbs", 0, 0, 0
End Sub

Shell函数只能运行可执行文件和批处理
shellexecute API可以运行系统中有关联的任何格式