小弟想编一个关机的小软件，在text1中输入时间来赋值变量
Private Sub Command1_Click()
Dim a As Date
a = CDate(Text1.Text)
If Len(Text1.Text) = 0 Then
MsgBox ("请输入日期")
Else
Shell ("at" & a & "shutdown -s")
End If
End Sub
高手们，这代码为啥执行错误？

哦  谢谢楼上两位