VB中Shell函数后要调用EXE，但在不同的电脑上程序的路径不一样，总不能换台电脑就改一次程序吧！

可以写一个配置文件或者文本文件放在同目录下,里面存有这个EXE文件的路径(变量)
参考源码:
在窗体上建一个text 和一个 command 复制下面的代码 运行 你就明白了..

Private Sub Command1_Click()
Dim f As String
f = App.Path & "\配置文件.txt"
Open f For Output As #1
Print #1, Text1.Text 'text内容为软件的路径
Close #1
Print "软件路径已经设置为 " & Text1.Text
End Sub

Private Sub Form_Load()
On Error GoTo eErr
Dim f As String, s As String
Command1.Caption = "设置路径"
f = App.Path & "\配置文件.txt"
Open f For Input As #1
Line Input #1, s
Text1.Text = s
Close #1
Exit Sub
eErr:
If Err.Number = 53 Then
Text1.Text = "软件路径还为设置,请先设置路径"
End If
End Sub

可用读注册表的方式，如果软件是安装完整的，那么在注册表中肯定有这个EXE文件的路径的。建议你用读取注册表的方式找到这个文件的路径。

如果是当前目录的相对目录的话:
App.Path & "\路径"
App.Path就是返回应用程序的路径
如果是系统目录的话,好像也有返回系统路径的函数.

URL:路径