2 timers

[pkj]

Puedes usar 2 timers, y desde el 1 activas el 2 que dura 5 segundos y tiene dentro solo esta línea:
Timer2.enabled=false

En el primer timer esperas que se detenga el segundo:
do until timer2.enabled=false
doevents
loop
o algo asi.

Yo de todas formas lo hice más cómodo con esta sub:

Sub Espera(ByVal Segundos As Long)
Dim Hora As Double
On Local Error Resume Next
Hora = Timer
Do While Timer < Hora + Segundos
DoEvents
Loop
On Local Error GoTo 0
End Sub

La llamas desde el Timer1 con:

Espera 5

y ya esta.

Saludos