Option Explicit
 
Private Declare Function WaitForSingleObject Lib "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
 
  Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function
 
Private Sub Command1_Click()
 
 Dim i&, j&, Url$, Warte&
 
  For i = 0 To 1
    Url = Text1(i).Text
    For j = 1 To Val(Text2(i).Text)
      WebBrowser1.Navigate Url
      DoEvents
      Warte = Val(Text3(i).Text) ' Milli-Sek.
      Call Wait(Warte)
    Next j
  Next i
End Sub