Пауза в выполнении VBA кода

Private Sub Кнопка754_Click()
 
  'Объявляем переменные
  Dim rs As Recordset
  Dim aFileDialog As Object
  Dim path As String
  'тоже что и в примере выше
    Set aFileDialog = Application.FileDialog(1)
      aFileDialog.AllowMultiSelect = False
      aFileDialog.Filters.Clear
      aFileDialog.Filters.Add "File PDF", "*.pdf, "
     'но добавим еще один фильтр
      aFileDialog.Filters.Add "Все файлы", "*.*"
      aFileDialog.FilterIndex = 1
    If aFileDialog.Show = False Then
       Set aFileDialog = Nothing
       Exit Sub
    End If
    path = Trim(aFileDialog.SelectedItems(1))
    If path <> "" Then
      Set aFileDialog = Nothing
     'присваиваем полю на форме имя выбраной картинки если меняем
      Me.Instrukciya_Path = Me.Pribor_ID & " " & Me.Nazva_pribora & ".pdf"
     If Dir(CurrentProject.path & "\Instrukciya" & Me.Instrukciya_Path) = "" Then
      FileCopy path, CurrentProject.path & "\Instrukciya" & Me.Instrukciya_Path
     Else
     'убираем файл из веб браузера
      Me.WebBrowser6.Navigate CurrentProject.path & "\Ошибка22.jpg"
     'удаляем старый файл
      Kill CurrentProject.path & "\Instrukciya" & Me.Instrukciya_Path
     'копируем файл в папку хранения и меняем его имя на сложенное выше
      FileCopy path, CurrentProject.path & "\Instrukciya" & Me.Instrukciya_Path
     End If
      'присваиваем нашей картинке на форме выбранную картинку, т.е. задаем путь
      Me.WebBrowser6.Navigate CurrentProject.path & "\Instrukciya" & Me.Instrukciya_Path
      'все это дело закрываем
      Set rs = Nothing
      'пересчитаем данные на форме
      Me.Recalc
    End If
End Sub

'В области объявлений модуля
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 2000

Do Until Me.WebBrowser6.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop