Option explicit
dim string1 as string
dim uhrzeit as string
 
Private Sub Form_Load()
    Timer1.Interval = 100  'ca. jede 1 sekunde
    Timer1.Enabled = True  'timer aktiviert
    Uhrzeit = "21:30"      'Uhrzeit festgelegt
End Sub
 
Private Sub Timer1_Timer()
    string1 = Format(Now, "hh:mm")
    if string1 = Uhrzeit
    'DEIN EREIGNIS
    end if
 
End Sub