[RESOLVED] Date Change

[Geeter27]

I am trying to recognize a change in date from todays. Basically, when the date changes at midnight or 12:01...(whatever it is on the pc). Here is what I have so far...this is not working though, the message box pops up immediately. Thanks in advance

Private Sub Timer1_Timer()
    Static smi_date As Integer
    
    If smi_date <> Day(Now) Then
        MsgBox ("Hello, New Day")
        smi_date = Day(Now)
    End If
End Sub