Public Class Form1
 
    Private counter As Integer
    Private max As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub navigate2nexturl()
        Dim Url = "http://www.racingpost.co.uk/....." & counter.ToString
        With Me.WebBrowser1
            .Navigate(Url)
        End With
        Me.Text = Url.ToString
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        counter = CInt(Me.TextBox1.Text)
        max = CInt(Me.TextBox2.Text)
        navigate2nexturl()
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
        If counter < max Then
            navigate2nexturl()
            counter += 1
        End If
    End Sub
End Class