'5bEFCg
Application.Wait (Now + TimeValue("0:00:05"))


'~PʂŃEFCg  100Ȃ0.1b

Option Explicit
'EGCgpAPI錾
#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If


'EGCg
Sleep WaitTime  = 100


'ϐŊǗA҂Ԃ̐錾Long ^
Dim WaitTime As Long:WaitTime = 100
'EGCg
Sleep WaitTime
