VB获取cmd命令，并输入命令，获取返回信息,该如何解决

VB获取cmd命令，并输入命令，获取返回信息
我有个程序通过CMD执行。执行后根据提示输入命令，并返回信息。想通过植入到VB程序里。通过VB自动输入信息，并返回结果。如下图。
请教高手，给出实例参考。谢谢！
------解决思路----------------------

Dim str As String

On Error Resume Next

Open “c:\Tribon\M3\Bin\in.txt” for output as #1

Print #1,"e:\1.txt"

Close #1

Open “c:\Tribon\M3\Bin\tmp.bat” for output as #1

Print #1,"su015 <in.txt >out.txt"

Close #1

Shell “c:\Tribon\M3\Bin\tmp.bat”,vbHide

Open “c:\Tribon\M3\Bin\out.txt” for input as #1

LineInput #1,str

Debug.Print str

Close #1

Kill “c:\Tribon\M3\Bin\in.txt”

Kill “c:\Tribon\M3\Bin\tmp.bat”

Kill “c:\Tribon\M3\Bin\out.txt”