Всплывающее сообщение «Подождите»

Я пытаюсь создать сообщение Подождите в Excel VBA. Это напоминает пользователю, обрабатывающему SQL-запрос, что процесс все еще продолжается. Я хотел бы, чтобы это сообщение отображалось в форме пользователя.

В настоящее время пользователь подключается к базе данных SQL, выбирает базу данных и некоторые другие параметры, нажимает Go ... и форма не выгружается. В точке перехода у меня есть другая форма, которая выскакивает с сообщением Пожалуйста, подождите , но эта форма не выгружается, т.е. команда выполнения SQL не запускается.

Мой код для вызова пользовательской формы Подождите , включая метку:

   Call WaitShowSQl.ExecuteCall KillWaitCall WaitShow
   SQl.Execute
   Call KillWait

В другом модуле кода у меня есть:

   Sub WaitShow()
   Wait.Show
   End Sub

   Sub KillWait()
   Unload Wait
   End Sub

У меня есть пользовательская форма с именем wait со следующим кодом:

Private Sub UserForm_Activate()
Call PleaseWait
End Sub 

Sub PleaseWait()
Wait.Label1.Caption = "Calculating...Please Wait!"
End Sub

Теперь при выполнении кода время выполнения не перемещается назад по модулю, чтобы выполнить следующее:

SQl.ExecuteSQl.Execute

Я могу показать ход выполнения программы с помощью строки состояния, но всплывающее сообщение пользовательской формы будет очень полезно для этой программы.