vba 延时

Public Function delay(t As Single)
Dim T1 As Single
T1 = Timer
Do
DoEvents
Loop While Timer - T1 < t
End Function