Hola, podes crearte un Timer con las apis de windows Settimer,Killtimer que soportan mas intervalo y son mas preciasas a intervalos menores, pero no hace falta , para añadirle mas de 80 segundos al timer(que es lo maximo que soporta mas o menos) simplemente con esto podes...
Dim Tiempo As Double
Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
If Tiempo = 240 Then
'aca el codigo que queres hacer al llegar al tiempo que queres
Tiempo = 0
End If
End Sub
ahi esta para 4 minutos con un timer en intervalo 1000(1 segundo aprox..)
saludos.