mmmmmmmmmmmm
como sugerencia, en lugar de utilizar el msgbox, poque no utilizas un frame que simule un mensaje y utilizas una rutina para que el programa espere x segundos, luego de que la rutina termine su ejecución pues pones visible=false al frame y sigues con el programa.
aca te mando el código que utilizo para esperar x segundos, espero que te sea útil
'Procedimiento para esperar X segundos
'Si se quiere usar de forma GLOBAL, insertarlo en un Módulo BAS
'y declararlo como público
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub