如何调用exe文件后获得返回结果

已经编好一个exe文件A(Text1用来输入数据，Text2用来输出数据)。我想编一个测试程序B（Command1是“测试”按钮），点击B中“测试”按钮→调用打开A→将测试数据传给A→A的运行结果返回到B。

我的方法是：
第一步：在B中用ShellExecute函数将数据传到A中
第二步：在B中用FindWindow去找句柄。（这一步失败。情况1：若我在运行B之前就打开了A，那么我运行B后获取的句柄是之前已经打开的A程序的句柄。情况2：若我只打开B程序而没有打开A，则句柄为0，即找不到句柄）

所以我的遇到的问题是，findwindow只能找到之前已经打开的程序的句柄，但我要的是用ShellExecute新打开一个程序，然后找到句柄。
已经想了快一礼拜了。快疯了。求指点，谢谢！！

代码如下：
Private Sub Command4_Click()
Dim m, r, t As Long
Dim a As String * 1024
r = ShellExecute(0, "open", App.Path & "\" & Label1.Caption & ".exe", " 899", "0", 1)
m = FindWindow("ThunderRT6FormDC", "Form1")
End Sub