Создайте синхронизированный цикл в Visual Basic, который выполняется каждые 30 секунд

Question

Мне нужно, чтобы приведенный ниже код выполнялся каждые 30 секунд в течение девяти минут, прежде чем двигаться дальше. Есть идеи?

'Begin 9 minute loop

CLEAR CONTENTS
Dim newFIle
Set FSO = CreateObject("Scripting.FileSystemObject")
Set newFIle = FSO.CreateTextFile("C:\Users\Owner\Desktop\RECALL\OutlookExport.csv", True, False)
newFIle.Write "Need Data"
newFIle.Close

Set FSO = CreateObject("Scripting.FileSystemObject")
'Choose File
Set csvOut = FSO.OpenTextFile("C:\Users\Owner\Desktop\RECALL\OutlookExport.csv", 8, True)
'Export Messages
For Each email In inbox.Folders.Item(CInt(response)).Items
    csvOut.Write (Chr(34) & email.SenderName & Chr(34) & ",")
    csvOut.Write email.Body
    csvOut.Write (vbNewLine)
Next

'Pause 30 seconds
'Return to "Begin 9 Minute Loop
'Repeat 18 times
'End 9 minute loop (Execute remainder of code)

Answer 1

Посмотрите на Таймер для VB6