以下代码实现高考倒计时：

Sub 高考倒计时()
高考日期 = CDate("06,07," & Year(Date))
If Date > 高考日期 Then
  高考日期 = CDate("06-07-" & Year(Date) + 1)
End If
年月日 = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
txt = "今天是" & 年月日 & vbCr & vbCr
txt = txt & "距离" & Year(高考日期) & "年高考还有"
txt = txt & 高考日期 - Date & "天"
 MsgBox txt, 0, "高考倒计时：qq443440204"
End Sub

结果如下：