Execute Sub after a certian amount of time? - ms-access

Question

I am trying to execute a Sub after a certain time period after a UserForm has open. The UserForm opens immediately when Access has started. Is there an alternative to Application.OnTime? As it does not work with Access and only seems to work with Excel.
This is what I'm working with.
Private Sub UserForm_Activate()
Set objWSHShell = CreateObject("WScript.Shell")
DesktopDir = objWSHShell.SpecialFolders("Desktop") & "\"
InstallDir = Left(DesktopDir, 3) & "VICI"
VICIMxDir = InstallDir & "\VICI Mx.txt"
VICIFmDir = InstallDir & "\VICI Fm.txt"
VICIAnalyticsDir = InstallDir & "\VICI Analytics.txt"
With ListBox_Status
If FSO.FileExists(VICIMxDir) = True Then 'Both exist
.Column(1, 0) = "Ready"
Else
.Column(1, 0) = "Not Found"
End If
If FSO.FileExists(VICIFmDir) = True Then
.Column(1, 1) = "Ready"
Else
.Column(1, 1) = "Not Found"
End If
If FSO.FileExists(VICIAnalyticsDir) = True Then
.Column(1, 2) = "Ready"
Else
.Column(1, 2) = "Not Found"
End If
.Column(1, 3) = Environ("UserName")
End With
Application.OnTime Now + TimeValue("00:00:10"), "DB_BackUP"
Application.OnTime Now + TimeValue("00:00:20"), "RmvDBBackup"
End Sub

Answer 1

You can use Application.Wait:
Private Sub UserForm_Activate()
waitTime (3000) ' 3 seconds
MyDeleyedMethod
End Sub
Function waitTime(ByVal millsec As Double)
Application.Wait (Now() + millsec / 24 / 60 / 60 / 1000)
End Function
Private Sub MydelayedMethod()
MsgBox ("hello")
End Sub
Another way to achieve that result is:
Private Sub UserForm_Activate()
Wait (3) ' 3 seconds
MyDeleyedMethod
End Sub
Sub Wait(seconds As Integer)
Dim now As Long
now = Timer()
Do
DoEvents
Loop While (Timer < now + seconds)
End Sub
Private Sub MyDeleyedMethod()
MsgBox ("hello")
End Sub