关于循环的问题？？大家帮忙！

我有一程序
循环打开指定网页

但我想让此程序 只循环5次后 等待6秒钟

然后继续往下循环5次 然后再等待6秒钟

一直这样循环

怎样实现呢？？
谢谢！！ --------------------编程问答-------------------- --------------------编程问答--------------------
Private Sub Form_Load()
    Timer1.Interval = 6000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim i As Long
    For i = 1 To 5
        Debug.Print i & "/5"
    Next
    Debug.Print "6second..."
End Sub

补充：VB ,  基础类