在VBA中怎么调用VBS脚本

在VBA中如何调用VBS脚本
最近在学习VBA，遇到一个问题
我想在VBA中调用已经写好的VBS脚本，VBA代码如下：
Sub Macro1()
Shell "C:\windows\system32\cmd.exe"
Shell "cd C:\temp"
Shell "cscript test.vbs"

End Sub

上面的command命令在cmd中可以正常执行，但是在VBA中执行到Shell "cd C:\temp"这句就报错了
提示File not found错误

麻烦有这方面经验的朋友帮忙看一下问题出在哪里，如果有其他方法直接调用也欢迎您说说思路

谢谢

------解决方案--------------------
Shell "cscript C:\temp\test.vbs" '不在环境变量%Path%的路径，要用完整路径。

'也可以新建一个批处理文件，然后再直接调用该批处理
Dim tempString As String
  
tempString = "cd C:\temp" & vbCrLf & "cscript test.vbs"
  
If Dir("c:\temp\") = "" Then MkDir "c:\temp"
Open "C:\temp\vbs.bat" For Output As #1
Print #1, tempString
Close #1
  
Shell "c:\temp\vbs.bat"

------解决方案--------------------
Sub Macro1()
Shell "C:\windows\system32\cmd.exe /K cd c:\&cd c:\temp&cscript test.vbs"
End Sub


cmd一行多命令，中间用&隔开。


不知道这样行不行
------解决方案--------------------
Shell 命令是在当前目录下执行的，所以可以这样：

VB code

ChDrive "C:"
ChDir "C:\Temp"
Shell "cscript test.vbs"