Private Sub Timer1_Timer()
'计时器代码
a = Time '把系统时间赋值给变量A
Select Case CDate(a)
Case ("00:01:00") '判断时间是否是晚上12点
b = InputBox("确认是否打卡", "打卡信息确认", "如果已打卡就输入1")
If Val(b) <> 1 Then
b = InputBox("确认是否打卡", "你尚未打卡", "如果已打卡就输入1")
     if val(b) <>1 then
     b = InputBox("确认是否打卡", "你尚未打卡", "如果已打卡就输入1")
     end if
ElseIf Val(b) = 1 Then
MsgBox "已记录打卡信息"
End If
End Select

我这样操作只能判断两次，如果要判断多次，不知道用什么代码好，头想破了，还是想不出来，请教高手了，

Private Sub Timer1_Timer()
'计时器代码
a = Time '把系统时间赋值给变量A
Select Case CDate(a)
Case ("00:01:00") '判断时间是否是晚上12点

do
b = InputBox("确认是否打卡", "打卡信息确认", "如果已打卡就输入1")
loop while val(b)<>1
MsgBox "已记录打卡信息"

End Select