关于循环的有关问题？

关于循环的问题？？？？？？？？？？
Private   Sub   Command1_Click()
Dim   a()   As   String
Dim   i   As   Long

a   =   Split(Text1.Text,   vbCrLf)
For   i   =   LBound(a)   To   UBound(a)

我这样循环textbox里每行的内容   直到循环完每行内容


问题是   如何让他循环3次后   斩停3秒钟   然后再循环3次再斩停3秒钟
需针对此程序

说的正确马上给分   急！！！

------解决方案--------------------
Dim blTimesUp As Boolean
Private Sub Command1_Click()

Dim a() As String
Dim i, j As Long

a = Split(Text1.Text, vbCrLf)
For i = LBound(a) To UBound(a)
'....此处添加你循环要处理的代码

j = j + 1
If j = 3 Then
j = 0
abcdefgh
End If
Next i

End Sub

Private Sub Timer1_Timer()
blTimesUp = True
End Sub

Sub abcdefgh()
Timer1.Interval = 3000
Timer1.Enabled = True
Do
DoEvents
If blTimesUp Then
blTimesUp = False
Timer1.Enabled = False
Exit Do
End If
Loop
End Sub