Bom dia crânios do VBA rsrs!!

Pessoal é o seguinte, eu pedi num outro tópico e me foi muito útil no excel, mas como dito também em um terceiro tópico, não trabalho apenas com o excel, portanto a fórmula lá utilizada não funcionou muito bem no caso agora...

A questão é que eu preciso que um programa de controle de dados estatísticos de processo fique alternando entre uma tela e outra, durante um período de tempo "X". O programa tem até o VBA dentro dele e a linguagem que ele funciona é a mesma que o do VBA do excel. Estou utilizando o código abaixo para encontrar e abrir os arquivos e funcionou, mas agora preciso colocar um temporizador para só abrir a outra tela após o tempo ser cumprido. Segue a macro que estou utilizando.

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub AbrirArquivo()

On Error Resume Next

Call ShellExecute(0, "open", "H:Nome do arquivo", "", _
"", _
SW_SHOWMAXIMIZED)
End Sub

Preciso somente do temporizador!!