Private Sub Timer1_Timer() 'Timer1.Interval = 1000 Dim str As String If Now > #3/11/2018 17:05:00 PM# Then str = InputBox("请输入:", "输入开始输入的那句话", "") If str = "你写的话" Then Timer1.Enabled = False End If End If End Sub