Вставить паузу в программе - VB

Формулировка задачи:

Здравствуйте, я уже наверно вопросов 5 задал за сегодня))) Вот такая проблема, мне нужно сделать задержку в выполнении программы, т.е. сначала проходит одна часть программы, все выполняет, и идет задержка, после задержки, выполняется вторая часть программы. Привожу на примерах: Я нажимаю на кнопку, должна происходить первая часть кода:

ActivePresentation.Slides.Range(Array(1, 2, 3, 4, 5)).Select

После того как первая часть кода выполнилась, должна идти задержка 10 сек. И после задержки выполняется вторая часть кода:

ActivePresentation.SaveAs FileName:="C:\Users\Денис\Desktop\" & naz & ".ppt"

Решение задачи: «Вставить паузу в программе»

textual
                            Листинг программы 
                        

                            Dim myDate As Date
Private Sub Command1_Click()
myDate = DateAdd("s", 10, Now)
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
If Now = myDate Then MsgBox "10 seconds later"
End Sub
                        