[求助]帮我写下这代码
我想要编一个程序比如说到达用户设定的时间就运行
Private Sub Timer1_Timer()
Label9.Caption = Date
Label2.Caption = Time
If Time = Combo1.Text & ":" & Combo2.Text & ":" & Combo3.Text Then
msg = "你好！虫子要提醒你，" & "你告诉虫子:“" & s & "”"
Style = vbExclamation + vbOKOnly + vbSystemModal
Title = "守时的虫子提醒你了！"
ret_val = MsgBox(msg, Style, Title)
If ret_val = 1 Then
Form1.Show
End If
End If
End Sub
应该怎么写？？？？
