vba 调用Exe返回值
请问如何调用CMD或exe并将其执行的返回到vba中。如我们cmd输入一个命令会有回显示，如何将返回的值，返回到vba中？谢谢！ dos定向符>将回显存入文件，然后在用open语句打开文件，读入vba.
'vba
Sub a()
Shell "cmd /c dir c:\>c:\1aaa.txt"
Open "c:\11ss.txt" For Input As #1
Dim s As String
While Not EOF(1)
Line Input #1, s
Debug.Print s
Wend
Close #1
End Sub
补充：VB , VBA
