datediff

1、dim a as timer
   timer不是一个数据类型，所以不对。正确的数据类型是date
2、time不是系统时间，系统时间应该是now
3、时间差的计算，不能直接做减法（如果做了，就要进行转换），而应使用特定的时间运算函数DateDiff

综上，代码应该写作：
Private Sub Command1_Click()
Dim a As Date
a = InputBox("输入时间")
Text1.Text = DateDiff("s", a, Now) & "秒"
End Sub