网页延时用的

Sub TimeDelaySeconds(DelaySeconds)
 SecCount = 0
 Sec2 = 0
 While SecCount < DelaySeconds + 1
  Sec1 = Second(Time())
   If Sec1 <> Sec2 Then
    Sec2 = Second(Time())
    SecCount = SecCount + 1
   End If
 Wend
End Sub

调用的时候

Call TimeDelaySeconds(100)