vb中怎么把text框里的内容运行到cmd，然后显示出的结果创建新的txt文件复制-----全部过程只一个按钮完成

text1.text为需要执行的命令
d:\1.txt为输出结果

Private Sub Command1_Click()
  Shell "cmd /c " & Text1.Text & "> d:\1.txt"
End Sub