Private Sub Timer_Timer() 
 
' tue hier was
 
' und nun zu deiner Frage :
If Second(Now) + Minute(Now) = 0 Then
    ' Hier kommt dein Code welcher zur vollen Stunde ausgeführt werden soll 
End If
 
' vieleicht hier noch was
End Sub

bike_tomy