Public Class Form1
    Dim ListaUrl() As String
    Private Sub cmdIr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIr.Click
        Dim webS As Byte
        'obtenemos en la variable webS el tab seleccionado
        webS = TabControl1.SelectedIndex
        'depende el tab seleccionado es donde recargara la url puesta
        Select Case webS
            Case 0
                'si esta seleccionado el tab 1
                Web1.Navigate(Trim(txtUrl.Text))
                'actualiza en el listbox (el index se obtiene desde el tab seleccionado)
                listUrl.Items.Item(webS) = Trim(txtUrl.Text)
            Case 1
                'si esta seleccionado el tab 2
                Web2.Navigate(Trim(txtUrl.Text))
                listUrl.Items.Item(webS) = Trim(txtUrl.Text)
            Case 2
                'si esta seleccionado el tab 3
                Web3.Navigate(Trim(txtUrl.Text))
                listUrl.Items.Item(webS) = Trim(txtUrl.Text)
        End Select
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listUrl.Items.Clear()
        ReDim Preserve ListaUrl(3) 'redimensionamos, aca depende la cantidaad de tabs, yo uso 3 como ejemplo
        'tambien se podria declarar junto con la variable Dim ListaUrl(0 to 2) como gustes.
        'cargamos el listbox con los items para solo edditarlos luego al recargar las paginas
        listUrl.Items.Add("( Pagina  1 )")
        listUrl.Items.Add("( Pagina  2 )")
        listUrl.Items.Add("( Pagina  3 )")
    End Sub
    Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click
        If listUrl.Items.Count = 0 Then Exit Sub 'sino hay elementos salimos
        txtUrl.Text = listUrl.Items.Item(TabControl1.SelectedIndex)
    End Sub
End Class