vb调用exe返回值的问题

lTask = Shell("E:\MATLAB\work\Recognition1.exe", vbNormalFocus)
lHandle = OpenProcess(Synchronize, 0, lTask)
lRet = WaitForSingleObject(lHandle, INFINITE)
lRet = CloseHandle(lHandle)
outbyte = lTask
Text1.Text=outbyte
为什么Text1显示的是一个随机数，Recognition1.exe独立运行返回值是4，到底哪出错了？？

你这样获得的是程序的进程ID，每次运行时这个ID都是不同的。并不是程序本身的返回值。
如果你的程序的返回值是标准输出方式（stdout）的，那么可以这样来获得返回值：

ITask = CreateObject("WScript.Shell").exec("E:\MATLAB\work\Recognition1.exe").stdout.readall
Text1.Text = ITask

你的字符串函数写错了，应该是instr s=intstr(str1,str2) 的意思是 查找str1中str2出现的位置并赋值给s 65在98765中出现在第四个字符的位置，所以返回值为4

这个在运行成功后返回的是随机数，即id值，可以通过该值传递命令到程序中。 运行失败时返回为0。 如果你要知道程序有没有运行，可以遍历程序名。