VB的shell的函数问题

Private Sub CmdDate_Click()
Text1.Text = Format(Date, "今天是yyyy年m月dd日")
End Sub

Private Sub CmdInputBox_Click()
Dim st As String
st = InputBox("输入信息对话框", "输入你的姓名,并按回车键")
Text1.Text = "你输入的是:" & st

End Sub

Private Sub CmdRnd_Click()
Dim rndx As Single
rndx = Val(Text1)
Randomize rndx
Text1 = Str$(Rnd)

End Sub

Private Sub CmdShell_Click()
Dim stname As String
stname = LTrim(RTrim(Text1))
Shell stname, 1 _____这里，Shell stname ，1这条命令有错么？每次都失败，说实时错误“53”文件未找到 不知道怎么回事，我是看教科书上的Visual Basic 6.0 程序设计实践指导 浙江科学技术出版社，第21页上，麻烦高手帮我解决下，我是新手自学的..
End Sub

Private Sub CmdTime_Click()
Text1 = "现在时间是：" & Time
End Sub

Private Sub Form_Load()
Frame1.Visible = False
Text1.Enabled = False
CmdClear.Enabled = False
Text1.BackColor = &H808080
Form4.Height = Form4.Height / 2