vb中怎么把text框里的内容运行到cmd，然后显示出的结果创建新的txt文件复制-----全部过程只一个按钮完成
vb中怎么把text框里的内容运行到cmd，然后显示出的结果创建新的txt文件复制-----全部过程只一个按钮完成只有一个text和一个按钮
text1.text为需要执行的命令
d:\1.txt为输出结果
Private Sub Command1_Click()
Shell "cmd /c " & Text1.Text & "> d:\1.txt"
End Sub