Hacer secuencia de funciones sin tantos timer

Me gustaria que alguien me ayudar a resolvers un problema que tengo. Necesito realizar una secuencia en la se hace una accion y que terminada siga la otra en cuestion de fracciones de segundo. Lo he hecho con timers pero necesito muchos y a veces fallan. Si alguien puede ayudarme con alguna funcion

Mira si te sirve este código:

Private Sub Form_Click()
ejecutaFunciones
End Sub
Private Sub ejecutaFunciones()
Dim aux As Long
Proc1
aux = timeGetTime
Do
DoEvents
Loop While timeGetTime < aux + 500
Proc2
aux = timeGetTime
Do
DoEvents
Loop While timeGetTime < aux + 400
Proc3
End Sub
Private Sub Proc1()
Me.Print "Se ejectuca proc1"
End Sub
Private Sub Proc2()
Me.Print "Se ejectuca proc2 500 milisegundos después"
End Sub
Private Sub Proc3()
Me.Print "Se ejectuca proc3 400 milisegundos después"
End Sub

Como ves durante los elapsos de tiempo se llama a doevents, si no quieres que se ejecuten eventos mientras se ejecuta la secuencia de procedimientos borra las llamadas a doevents.