Private Sub tmrMain_Timer()
   tmrMain.Enabled = False
 
   If Time = Format(Now, "DD.MM.YYYY HH:MM:SS") Then
      'Aktion auslösen
      Aktion_Start
     Exit Sub
   End If
 
   If DateDiff("s",Format(Now, "DD.MM.YYYY HH:MM:SS"),Zeit) > 60 Then
      tmrMain.Intervall = 60000
    else
      tmrMain.Intervall = 1000
   End if
 
   tmrMain.Enabled = True 
End Sub

Cu

Wolfgang