Timer - extend control to large intervals

Sub Timer1_Timer()
'set Interval property to 60  = 1 minute
'Timer normally is good for about 1 minute
Static iMinutes
iMinutes = iMinutes + 1

If iMinutes Mod 5 <> 0 Then Exit Sub    '5 is the extended number of minutes

'you reached the extended time - do something
MSGBox "The timer hit 5 minutes"

'reset the timer to begin counting again
iMinutes = 0

End Sub