在VB编程中，可以使用多种方法来实现延迟。以下是几种常用的方法：
使用Timer控件
Timer是VBA自带的函数，适用于需要几秒延时的场景。
示例代码：
```vba
Sub delay（T As Single）
Dim time1 As Single
time1 = Timer
Do DoEvents
Loop While Timer - time1 < T
End Sub
```
注意：Timer函数的时间每天都是从0开始，如果需要延时1秒以上，可能会导致程序无法正常结束。
使用Windows API函数Sleep
Sleep函数可以挂起进程一段时间，毫秒级精度较高。
示例代码：
```vba
Private Declare Sub Sleep Lib "kernel32" （ByVal dwMilliseconds As Long）
Private Sub Command1_Click（）
Text1 = "sleep begin"
Sleep 3000
Text1 = "sleep end"
End Sub
```
注意：使用Sleep函数时，程序会挂起，用户无法进行其他操作，直到延时结束。
使用QueryPerformanceCounter和QueryPerformanceFrequency
这两种API可以实现微秒级甚至毫秒级的精准延时。
示例代码：
```vba
Private Declare Function QueryPerformanceCounter Lib "kernel32" （ByRef lpPerformanceCount As Long） As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" （ByRef lpFrequency As Long） As Long
Sub delay（T As Double）
Dim startCount As Long
Dim endCount As Long
Dim frequency As Long
QueryPerformanceFrequency frequency
QueryPerformanceCounter startCount
Do
QueryPerformanceCounter endCount
If endCount - startCount >= T * frequency Then
Exit Do
End If
Loop
End Sub
```
注意：这种方法需要调用Windows API，相对复杂，但精度最高。
建议
如果需要简单的延时（如几秒），且对精度要求不高，可以使用Timer控件。
如果需要更高精度的延时（如毫秒级），且不介意使用Windows API，可以使用Sleep函数结合QueryPerformanceCounter和QueryPerformanceFrequency。
如果需要更复杂的定时任务，可以考虑使用VB.NET中的Timer控件或其他定时器组件。