vb shell错误提示“文件未找到”

初学VB想做个多功能班班通助手

我程序里写的是——

Dim Filename1 As String '定义Filename1为需要打开的幻灯片的路径
Dialog1.CancelError = True '用户选择取消会提示出错
Dialog1.ShowOpen '“选择文件”对话框
Filename1 = Dialog1.FileName '导入Filename1为需要打开的幻灯片的路径
Shell "C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE" & "/S" & Filename1, 1

其中& "/S"是直接放映的意思。
意思是选择一个幻灯片文件然后用PPT直接放映它。
“选择文件”对话框正常。
但是选完文件一点打开就会出现“53 文件未找到”
不是路径的问题，我把& Filename1去了就能正常打开PPT程序，并且调试发现选择文件之后变量里的路径也是没有问题的。

还有，
Shell "C:\…\POWERPNT.EXE" & "/S" & Filename1, 1 改成
Shell "C:\…\POWERPNT.EXE" & "/S" & Dialog1.FileName, 1 这样也不行

Shell "C:\…\POWERPNT.EXE /S " & Filename1, 1

加点空格

写全试试 shell “c:\windows\system32\cmd.exe/ start rt ” & rt