API'шная Sleep не подходит для паузы. Зато стандартный таймер поддерживает интервалы в миллисекундах. Я сделал так:
- отдельная форма. без границ, без элементов управления (ControlBox = 0)
- свойство формы Visible=False
- на форму - элемент Timer

Это в форме:

Private Sub tmrTimer_Timer()
tmrTimer.Interval = 0
End Sub

Public Sub Pause(millisec As Long)
With Me.tmrTimer
.Interval = millisec
.Enabled = True

Do While .Interval > 0
DoEvents
Loop

.Enabled = False
End With
End Sub
=============================

Это в модуле:

Public Sub Pause(millisec As Long)
Load frmTimer
Call frmTimer.Pause(millisec)
Unload frmTimer
End Sub

Вызываю в нужном месте программы свою процедуру:

Call Pause(500) 'пауза в полсекунды