Private Sub Timer1_Timer()
     Static nSeks As Long
     nSeks = nSeks + 1
     If nSeks <  61Then
            Msgbox "Gerade ist eine Minute vertrichen - und nun?"
     Else
            nSeks = 0
      End If
End sub