请问延时函数怎么写CPU占用率更低？

wgw420

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub wenjian()
    pa = ThisWorkbook.Path
    i = 1
    Do While i > 0
        a = Format(Time, "hh:00:00")  '判断是否超过15:00
        If Val(Left(a, 2)) > 14 Then Exit Do
        delay (5 * 1000) '延时？秒
        If IsFileExists(pa & "\1.txt") = True Then ' 文件存在时的处理
        msgbox "文件存在"
        End If
    Loop
End Sub
'延时函数
Sub delay(T As Long)
    Dim time1 As Long
    time1 = timeGetTime
    Do
        DoEvents
    Loop While timeGetTime - time1 < T
End Sub

我这样写，CPU占用在20%-35%之间，可以更低一些吗？请问怎么修改呢？