Work Issues

Option Explicit
Dim i As Integer
Dim j As Integer
Dim t  As Integer
Dim SaveStr As String

Private Sub Command1_Click()
Dim msg As String

msg = InputBox("How many times want to repeat ?", "repeat", 0)
If IsNull(msg) = False And IsNumeric(msg) = True Then
    t = CInt(msg)
Else
    Timer1.Enabled = False
End If
Timer1.Enabled = True
SaveStr = Text1.Text
End Sub

Private Sub Form_Load()
i = 1
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Form_Resize()
Text1.Width = Me.Width
WebBrowser1.Width = Me.Width
WebBrowser1.Height = Me.Height
Command1.Left = Me.Width - Command1.Width
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.Busy = False Then
    WebBrowser1.Navigate SaveStr + CStr(i)
    Text1.Text = SaveStr + CStr(i)
    i = i + 1
    
    If i = t + 1 Then
        Timer1.Enabled = False
        Text1.Text = vbNullString
        t = 0
        i = 1
    End If
End If
End Sub