Private Sub cmdLocateHops_Click()

    HopCounter = 1
    WebBrowser2 = "para diferenciar los valores"
    
    TimerBusy.Interval = 200
    TimerBusy.Enabled = True

End Sub


Private Sub TimerBusy_Timer()

If Not WebText = WebText Then

    If HopCounter > 128 Or Hops(HopCounter) = HostIP Then TimerBusy.Enabled = False: Exit Sub

    If Not Hops(HopCounter) = "" Then IPLocator.Navigate "http://api.hostip.info/get_html.php?ip=" & Hops(HopCounter) & "&position=true"
    
    WebText = WebText2
    
    If Not IPLocator.Busy = True Then
        IPLocator.SetFocus
        IPLocator.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Seleccionar todo
        IPLocator.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copia
        WebText = Clipboard.GetText
        If InStr(1, WebText, "Latitude", vbTextCompare) > 0 Then
            txtLocator.Text = txtLocator.Text & vbCrLf & "[" & Hops(HopCounter) & "]" & vbCrLf & WebBrowser
            HopCounter = HopCounter + 1
        End If
    End If
    
End If

End Sub